//Vorraussetzung ist, dass du das Windowhandle eines Fensters im MainThread hast
procedure Threadexecute;
var myRecord:TmyRecord
    antwort:integer;
begin
  ...
  antwort:=sendmessage(windowhandle,WM_User,integer(@myRecord),0);
  // anstatt der 0 kann man natürlich noch eine andere Zahl übergeben
  ...
end;


//MainThread (z.B. Form1)
type
  TForm1=class(Tform)
    ...
    procedure myThreadMessage(var msg:TMessage);message WM_User;
end;

...
procedure TForm1.myThreadMessage(var msg:TMessage);
var myRecord:^TmyRecord;
begin
  myRecord:=pointer(msg.wparam);
  frmForm1:=TfrmForm1.Create();
  try
    msg.result:=frmForm1.ShowModal; //msg.Result wird als Ergebnis von Sendmessage durchgereicht -->Antwort
  finally
    freeandnil(frmForm1);
  end;
end;