CompareDateTime unter TD 2006 ?

[Ajin]

Guten Morgen!

Also mein Programm läuft Tag und Nacht.
Ab genau 01:00 Uhr möchte ich, dass eine Variable auf TRUE gesetzt wird.
Ab 08:00 Uhr wieder auf FALSE.

Ist ein Uhrzeitvergleich ausreichend oder sollte ich das Datum mitprüfen?

Nun hab ich über die Forensuche festgestellt, dass diese Datum/Uhrzeit Vergleiche recht oft disskutiert wurden. Dabei wird häufig auf eine CompareDateTime Funktion verwiesen.

Delphi-Quellcode:

Unit 
DateUtils 
...
procedure TFlogin.Button1Click(Sender: TObject);
begin
 if CompareDateTime(now, StrToDateTime('21.03.2007 10:08:00')) = LessThanValue
 then showmessage('now liegt vor 21.03.2007 10:08:00')
 else showmessage('now liegt hinter 21.03.2007 10:08:00');
end;

Das Lessthanvalue ist noch unbekannt, hab auch ne variable -> ergebnis: TValueRelationship deklariert, ging aber auch nicht. Funktioniert mein Vorhaben mit CompareDateTime oder reicht auch ein CompareTime?
Bzw. wie bekomme ich das ohne Fehler kompiliert ;P