TThread und Sleep

[henryhux]

Hey, ich glaube mein erster Post hier EDIT : Nicht ganz
Und zwar wollte ich mal nachfragen, ob es normal ist, dass sleep() in einem Thread ausgeführt das ganze Programm freezed?
Dachte immer das würde nicht passieren.
Naja hier ein kleines Beispiel:

Delphi-Quellcode:

  TThread1 = class(TThread)
    procedure execute; override;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TThread1.execute;
begin
  Sleep(5000);
end;

procedure TForm1.btn1Click(Sender: TObject);
var T : TThread1;
begin
  T := TThread1.Create;
  T.Execute;
end;

Was könnte ich als Alternative benutzen?

Lg