Timer oder sleep?

[scp]

Ich würde sagen ungewöhnlich, probiers mal so:

Delphi-Quellcode:

var
  NowEmpty : boolean = true;

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

  case NowEmpty of 
    False: 
      begin 
        Label1.Caption := 'Test erfolglos'; 
        Timer1.Interval := 750; 
      end; 
    True: 
      begin 
        Label1.Caption:=EmptyStr; 
        Timer1.Interval := 5000; 
      end; 
  end; 

  Application.ProcessMessages; 
  Timer1.Enabled := true;

  {Timer1Timer(Self);}  // Die Timer-Funktion wird von alleine erneut auf gerufen.
end;