1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

if PeekMessage(Msg, 0, 0, 0, PM_REMOVE) then begin
      if Msg.Message = wm_Quit then
        {Re-post quit message so main message loop will terminate}
        PostQuitMessage(Msg.WParam)
      else begin
        TranslateMessage(Msg);
        DispatchMessage(Msg);
      end;
      {Return message so caller can act on message if necessary}
      SafeYield := MAKELONG(Msg.Message, Msg.hwnd);
    end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

const
  WM_MyMessageID = wm_user + 1; // selfmade message

type
  TMyForm = Class()
  public
  procedure WMMyMessageID(var Msg:TMessage);Message wm_myMessageID;
end;

procedure TMyForm.WMMyMessageID;
begin
  // CODE here
end;                    

1:

PostMessage(Fensterhandle, wm_MyMessageID,wParam,lParam);