Spiders Code etwas verbessert:
Delphi-Quellcode:
TForm1 =
class(TForm)
// Sowas in der Art sollte ziemlich weit oben stehen
private
Counter: Integer;
public
end;
...
implementation
// Erzeuge ein Form.Create (im ObjectInspector die Form auswählen auf Ereignisse und doppel auf OnCreate dann sollte das da stehen:
procedure TForm1.Create(Sender: TObject);
begin
Counter := 20;
end;
procedure Timer1.Timer(Sender: TObject);
begin
Dec(Counter);
edit1.text := IntToStr(Counter);
if Counter = 0
then
begin
// Nach zwanzig Minuten
ShowMessage('
Zeit abgelaufen !');
end;
end;