Sekunden an einen Timer übergeben

[Sharky]

Hai Tavik,

auch wenn es mir nicht gesagt wird sehe ich das so das Du einen Countdown anzeigen möchtest?
Warum dafür nicht mit der Systemzeit arbeiten?
Hier mal mein Ansatz. Er benötigt:
1 x Timer
1 x Button
3 x Edit
2 x Label

Delphi-Quellcode:

var
  stunden : Integer;
  minuten : Integer;
  sekunden : Integer;
  startzeit : TTime;
  countdown    : TTime;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Timer1.Enabled := False;
  Timer1.Interval := 25;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  stunden := StrToInt (Edit1.Text);
  minuten := StrToInt (Edit2.Text);
  sekunden := StrToInt (Edit3.Text);
  countdown := EncodeTime (stunden,minuten,sekunden,0);
  startzeit := Now;
  Timer1.Enabled := True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Label1.Caption := TimeToStr (now);  // Echzeit
  Label2.Caption := TimeToStr (countdown - (now-startzeit));  // Mein Countdown
end;