Countdown der auf Now Zeit zurück greift

[oldmax]

Hi
so geht's auch. Hier mal ein kleiner Test von mir:
Ich habe mal 3 Editfelder und einen Timer auf eine Form gezogen und eine globale Variablen deklariert:

Differenzzeit :TTime; In edit1.Text habe ich '10:00:00' eingetragen= Morgends um 10 ist die Welt....

In Create die Zeit initialisieren

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
   Edit1.Text:='10:00:00'; //Morgends um 10 ist die Welt....
   Edit2.Text:=FormatDateTime('hh:nn:ss',time );//Aktuelle Zeit
   Differenzzeit  :=strToTime(Edit2.Text)-Time;
   Edit3.Text:=FormatDateTime('hh:nn:ss',Differenzzeit );// der CountDown läuft..
end;

und im Timer berechnen und visualisieren....

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   Edit2.Text:=FormatDateTime('hh:nn:ss',time );//Aktuelle Zeit
   Differenzzeit  :=strToTime(Edit1.Text)-Time;
   Edit3.Text:=FormatDateTime('hh:nn:ss',Differenzzeit );// der CountDown läuft..

   if Differenzzeit  <0 then Timer1.Enabled:=False
end;

Gruß oldmax