Problem mit Countdown

[Adrian112]

Hallo,
ich programmiere gerade für einen Bekannten einen Countdown bis zum 3.8.2010. Mit diesem Quelltext zeige ich die Tage, Stunden, und Minuten bis zum 3.8.2010 an.

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Days.Caption := IntToStr(DaysBetween(StrToDate(DateToStr(Now)),StrToDate('03.08.2010')));
Hours.Caption := IntToStr(23 - HoursBetween(StrToTime(TimeToStr(Now)),StrToTime('0')));
Minutes.Caption := IntToStr(59 - MinutesBetween(StrToTime(TimeToStr(Now)),StrToTime(IntToStr((23 - StrToInt(Hours.Caption))))));
// Hier sollen die Angaben für Sekunden rein
end;

Wie könnte ich jetzt dafür sorgen dass die verbleibenden Sekunden auch angezeigt werden? Ich bring dass einfach net hin