const
      WM_CAP_START                    = WM_USER;
      WM_XVID_DISP                    = (WM_CAP_START+  1);   //VFW 에서 보고



type

  TXVIDCALLBACK   = function(hWnd:HWND):LongInt; stdcall;
   .
   .
   .
   private
      .
      .
      function Disp(hwnd:THandle; fpProc:TXVIDCALLBACK):LongInt;

end;



Function XVid_Disp_CallBack(hWnd:HWND):LongInt; stdcall;
begin
      콜백함수로 불려질함수
end;


위함수를 콜백함수로 호출하고싶습니다.

VFW 에서는 아래같은 방식을 사용하는데 아직 이해를 못하고 있습니다.
이해좀시켜주세요

function TForm1.Disp(hwnd:THandle; fpProc:TXVIDCALLBACK):LongInt;
begin
   Result := SendMessage(hwnd, WM_XVID_DISP, 0, LPARAM(@fpProc));
end;