Tipp: Der Typ TDateTime ist am Ende nur ein Double und kann von einem anderen subtrahiert werden:
Delphi-Quellcode:
procedure TForm1.Timer1Timer(Sender: TObject);
var syl: tdatetime;
begin
syl := StrtoDateTime('1.1.2006 00:00:00');
label1.Caption := inttostr(trunc(syl-now))+' Tag(e) '+Timetostr(frac(syl-now));
end;