Zeit ablaufen lassen

[Angel4585]

Delphi-Quellcode:

var
 FTime : TDateTime;

procedure StartCountdown(AnzSekunden : Integer);
begin
FTime:=IncSecond(Now,AnzSekunden);
Timer1.enabled:=True;
end;

//Timerintervall auf 1000
procedure TForm1.Timer1Time(Sender : TObject);
begin
if Now > FTime then
 begin
 ShowMessage('BOOOM');
 Timer1.enabled:=False;
 end;
end;

mein Vorschlag.. ungetestet

Edit: Für IncSecond musst du DateUtils in die Uses Liste eintragen