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;