Hvordan laver man en nedtælning?

uses
  DateUtils;

VAR
  MyTid, T : TDateTime;

begin
  MyTid := Now;
  T := IncHour(MyTid,-2);
  while MyTid > T do MyTid := IncSec(MyTid,-1);
end;

Sæt en edit (Edit1) på til den dato der skal tælles ned til.
Sæt en edit (Edit2) på til det klokkeslet der skal tælles ned til.
Sæt en CheckBox på, hvor du kan slå tælle funktionen til og fra.
Tælle funktionen skal slåes fra når der indtastes dato og tidspunket.
Sæt en timer på, med 'Enabled sat til false', og 'Interval sat til 1000'.

Lav følgende rutine til checkbox'ens OnClick event:

procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  Timer1.Enabled := CheckBox1.Checked;
end;

Lav følgende til timerens OnTimer event:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Remain: TDateTime;
begin
  Remain := (StrToDate(Edit1.Text) + StrToTime(Edit2.Text)) - Now;
  Label1.Caption := DateTimeToStr(Remain);
end;

Sæt programmet igang, og indtast dato og klokkeslet, og start tællere ved at sætte kryds i checkboxen.

Bemærk der er ingen fejl korigering i dette eksempel.
Du kan evt. bruge MaskEdit i stedet for Edit.
Du kan også putte timeren ind i en try/except.

Hov der er en lille fejl i linien: Label1.Caption := DateTimeToStr(Remain);
Fordi Dato 0 (Nul) det er jo lig med '01-01-1900', så der skal fifles lidt med den tekst der kommer ud af 'DateTimeToStr(Remain)' så der trækkes 1900 fra årstallet, og 1 fra både dato og måned.

OnTimer eventen skal se sådan ud:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  Dato: TDateTime;
  Dage: String;
begin
  Dato := StrToDate(Edit1.Text) + StrToTime(Edit2.Text);  // Tidspunkt der skal tælles ned til.
  Dage := IntToStr(DaysBetween(Dato, Now));  // Antal hele dage.
  Label1.Caption := Dage + ' ' + TimeToStr(Dato - Now);
end;

Nå ja, en fejl kommer sjældent alene.
Oppe under uses, skal der tilføjes 'DateUtils'.

Tak Anton. Det virker perfekt!