TThread und Sleep

[Bummi]

die Zeile
  T.Execute; gehört da nicht rein.
Der Thread selbst läuft ins Execute, wenn Du es aus der Haupanwendung aufrufst steht diese....

Beispiel:

Delphi-Quellcode:

procedure TThread1.execute;
begin
  Showmessage('vor Sleep');
  Sleep(15000);
  Showmessage('nach Sleep');
end;

procedure TForm1.button1Click(Sender: TObject);
var T : TThread1;
begin
  T := TThread1.Create(false);

end;
procedure TForm1.Button2Click(Sender: TObject);
begin
  Showmessage('Hallo')
end;