Countdown

[jfheins]

Ich habs jetzt so gemacht:

Delphi-Quellcode:

var Countdown: TTime;

 Countdown := StrtoTime ('00:'+min+':'+sec);
 Form1.Timer1.Enabled := TRUE;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 Countdown := Countdown - StrtoTime ('00:00:01');
 Label3.Caption := FormatDateTime ('n:ss', Countdown);
 if Label3.Caption = '0:00' then Timer1.Enabled := FALSE;
end;