1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  count:=count+1;   //count wird aufgewertet

  if count>10 then   //Timer fragt ab, ob count schon 60 ist
   begin
    Form1.Label1.Caption:='Zeit abgelaufen!';   //Nachricht
    count:=0;                       //Programm wird für den nächsten
    Form1.Timer1.Enabled:=false;   // Start vorbereitet
   end;
end;

procedure TForm1.ButtonZeitLaeuftClick(Sender: TObject);
begin
  Form1.Timer1.Enabled:=true;   //Voreinstellung im Objektinspektor false!
end;