[NumLock]

Код:

procedure DoIt;
begin
  TThread.Synchronize(MyThread,
  procedure()
  begin
    Form2.Caption:='Let Me Show You';
  end);
end;

MyThread и Form2 в другом модуле.