PostMessage (DebugForm.Handle,ERROR_DATA_MESSAGE,DWORD(PChar(Er_Message)),DWORD(PChar(Discription)));

var
  LocOpenResultFiles:TOpenResultFiles;
begin 
     if not (Sender is TOpenResultFiles) then Exit;
    LocOpenResultFiles:= Sender as TOpenResultFiles;

var
   Thread1:TThread1; 
   Thread2:TThread2; 

//вызываемая процедура
Procedure TTread1.CallProcedure;
Begin
//какой-нибудь код
End; 

Procedure TThread2.Execute;
Begin
Thread1.CallProcedure; //в каком потоке будет выполнен код внутри процедуры?
end;

//это крутиться не в главном потоке, но, наверняка, главный поток не успевал обработать все сообщения
While 0=1 do 
 begin
   Tread:=TThread.Create(false);
   sleep (10);
 end;

...
TThread.Create (..)
Var
 p:Pointer;
Begin
  New(p);
  if not PostMessage(.,.,.,.,.) then Dispose(p);
end;

New(p);
  if not PostMessage(.,.,.,.,.) then Dispose(p);

While 0=1 do 
 begin
   Tread:=TThread.Create(false);
   Tread.WaitFor;
   FreeAndNil(Tread);
   sleep (10);
 end;

  for i:=0 to InListResultLoad.Count-1 do
    begin
              OpenResultFilesInTread:=TOpenResultFiles.Create(InListResultLoad[i],Integer(InListResultLoad.Objects[i]), False);    //поток считывания результатов
              OpenResultFilesInTread.OnCurentResultLoad:=   CoreShell.OnOpenCurrentFile;    //события выгрузки результатов
              OpenResultFilesInTread.OnSelectedResultLoad:= CoreShell.OnOpenSelectedFile;   //события выгрузки результатов
              OpenResultFilesInTread.Resume;
              OpenResultFilesInTread.WaitFor;    //ждем выполненения
              FreeAndNil(OpenResultFilesInTread);  //убиваем законченный
              sleep(10); ждем всякого на всякий
    end;