넘기는 메세지가 일반 TMessage형인지 아니면 다른 변수나 구조체인지는 모르겠네요
그건 함두 원형을 봐야겠네요

일단 선언시
procedure MsgRECEIVEDATA(var msg: TMessage); message WM_RECEIVEDATA;
그리고 WM_USER는 어플리케이션(시스템)이 사용하는 메세지번호 마지막 다음 사용자가 사용하는 번호의 시작입니다.
hsr//////////////////////////////////////////////////

//상수선언
const
        WM_RECEIVEDATA = (WM_USER + 10);

        MSG_RCVCALL = 1001;
        MSG_RCVSMS = 1002;
        MSG_RCVRING = 1003;
        MSG_CONERROR = 1004;

//변수선언
var
    OldWinProc : Integer;  //<==얘는 LongInt로 잡아야 하나요?


function NewWinProc(hWnd: HWND; Msg: WORD; wParam: WORD; lParam: LONGINT): LONGINT; StdCall;
begin
        If Msg = WM_RECEIVEDATA Then begin
                Case wParam of
                        MSG_RCVCALL :
                        begin
                                ShowMessage('MSG_RCVCALL');
                        end;
                        MSG_RCVSMS :
                        begin
                                ShowMessage('MSG_RCVSMS');
                        end;
                        MSG_RCVRING :
                        begin
                                if lParam = 1 then
                                        ShowMessage(GetCallID + ' -  Ringing')
                                else if lParam = 2 then
                                        ShowMessage('Ringing')
                                else if lParam = 3 then
                                        ShowMessage('Ringing')
                                else
                                        ShowMessage('...');
                        end;
                        MSG_CONERROR :
                        begin
                                ShowMessage('MSG_CONERROR');
                        end;
                end;
        end
        else begin
                ShowMessage('무슨 메세지?');  
                Result := CallWindowProc(Pointer(OldWinProc), hWnd, Msg, wParam, lParam);    
        end;
end;


//Form이 생성될 때
procedure TSMSServerMainForm.FormCreate(Sender: TObject);
begin
        OldWinProc := SetWindowLong(Handle, GWL_WNDPROC, LongInt(@NewWinProc));
end;


//폼이 Destroy될때
procedure TSMSServerMainForm.FormDestroy(Sender: TObject);
begin
        if OldWinProc <> 0 then
                SetWindowLong(Handle, GWL_WNDPROC, OldWinProc);
end;


==================
위와 같이 코딩을 했는데 에러메세지가 뭐로 나오냐하면 "창에 스크롤바가 없습니다."라고 한번이 나오고 다음은 계속 "잘못된 창핸들입니다. ErrorCode : 1400"이라고 메세지가 나옵니다.

그리고 DLL에 있는 function에서 어떤 식으로 메세지를 보내주는지 알 수가 없습니다. 참고할 것은 제공해주는 함수 목록과 위에서 정의한 상수밖에 엄서요.
ㅜ.ㅜ
어떻게 해야 될지 모르겠네요.