Timer oder sleep?

[steppo]

Ich benutze ein Formular auf dem ein Label platziert ist. Das Label ist transparent un ddie Schrift im Label nahc einer gewissen Zeit über sleep in dem Label eingeblendet. Nach einer bestimmten Zeit wird die caption des Labels wieder auf Emptystring gesetzt. Die Funktion wird nun von neuem aufgerufen.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := not Timer1.Enabled;

  case Timer1.Enabled of
    False:
      begin
        Label1.Caption:='Test erfolglos';
        sleep(5000);
      end;
    True:
      begin
        Label1.Caption:=EmptyStr;
       Sleep(750);
      end;
  end;
Application.ProcessMessages;
  Timer1Timer(Self);
end;

Timer1 ist auf True gesetzt, damit er beim Programmstart sofort startet.