Code:


unit ThreadUnit;

interface

uses
  Windows, Classes, Messages;

const
  MSG_SEND = WM_APP + 1;
  MSG_CALC = WM_APP + 2;

type
  TMyThread = class(TThread)
  private
    procedure ProcessMessages;

    procedure MsgSend(var Msg: TMessage); message MSG_SEND;
    procedure MsgCalc(var Msg: TMessage); message MSG_CALC;
  protected
    procedure Execute; override;
  public
    function SendMsg(Msg: UINT; wParam: Longint; lParam: Longint): Longint;
  end;


implementation

type
  TSendHelper = packed record
    Msg: UINT;
    lParam: Longint;
    wParam: Longint;
    Result: Longint;
    Event: THandle;
  end;

{ TMyThread }

procedure TMyThread.Execute;
var
  msg: TMsg;
begin
  PeekMessage(msg, 0, WM_NULL, WM_NULL, PM_NOREMOVE);

  while not Terminated do
  begin
    Sleep(100);
    ProcessMessages;
  end;
end;

procedure TMyThread.MsgCalc(var Msg: TMessage);
begin
  Msg.Result := Msg.LParam * Msg.WParam;
end;

procedure TMyThread.MsgSend(var Msg: TMessage);
var
  Temp: TSendHelper;
  TempMsg: TMessage;
begin
  Temp := TSendHelper(Pointer(Msg.wParam)^);
  TempMsg.Msg := Temp.Msg;
  TempMsg.wParam := Temp.wParam;
  TempMsg.lParam := Temp.lParam;
  try
    Dispatch(TempMsg);
    Temp.Result := TempMsg.Result;
    SetEvent(Temp.Event);
  except

  end;
end;

procedure TMyThread.ProcessMessages;
var
  msg: TMsg;
  Temp: TMessage;
begin
  // Preuzimamo i procesiramo sve poruke koje se trenutno nalaze u message queueu ovog treada
  while PeekMessage(msg, INVALID_HANDLE_VALUE, 0, 0, PM_REMOVE) do
  begin
    Temp.Msg := msg.message;
    Temp.wParam := msg.wParam;
    Temp.lParam := msg.lParam;
    try
      Dispatch(Temp);
    except

    end;
  end;
end;

function TMyThread.SendMsg(Msg: UINT; wParam: Longint; lParam: Longint): Longint;
var
  Temp: TSendHelper;
begin
  Temp.Event := CreateEvent(nil, True, False, nil);
  Temp.Msg := Msg;
  Temp.lParam := lParam;
  Temp.wParam := wParam;
  PostThreadMessage(ThreadID, MSG_SEND, Longint(@Temp), 0);
  WaitForSingleObject(Temp.Event, INFINITE);
  Result := Temp.Result;
  CloseHandle(Temp.Event);
end;

end.

I pozivanje: 
  FThread := TMyThread.Create(False);
  Caption := IntToStr(FThread.SendMsg(MSG_CALC, 343, 222));