Weiterlernen

[SProske]

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  //bei jedem Aufruf des Timer-Ereignisses
  totaltime := IncSecond(totaltime, -1); //1 Sekunde abziehen
  label1.Caption:=Timetostr(totaltime); //Label aktualisieren
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  totaltime := IncSecond (0,60); //hier deine Variable initialisieren!
end;

end.