Restzeit von einen Countdown

[faux]

Hallo!

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Sekunden := Sekunden - 1;
  if Sekunden < 0 then
  begin
    Sekunden := 59;
    Minuten := Minuten - 1;
  end;
  if Minuten < 0 then
  begin
    Minuten := 59;
    Stunden := Stunden - 1;
  end;
  if Stunden < 0 then
  begin
    //ende
  end;
end;

Müsste so ähnlich gehen.

Grüße
Faux