Was ist denn nun so schwer?
Du willst nur die Zeiten vergleichen .... also vergleiche doch auch nur die Zeiten und entferne das Datum.
Trunc und Frac würde ich aber hier nicht verwenden,
auch wenn es mathematisch das Gleiche macht, wie
DataOf und
TimeOf.
"Logisch" macht es was Anderes und so ist der Code auch selbstdokumentierend.
[edit] CompareTime verwendet intern natürlich auch TimeOf [/edit]
Bzw., wenn du nur die Zeit haben willst, warum liest du dann nicht nur die Zeit aus?
TDateTimePicker.DateTime
TDateTimePicker.Date
TDateTimePicker.Time
Alternativ kann man auch zu Beginn (OnCreate) Now bzw. Date in den TDateTimePicker eintragen.
So lange dann niemand zu lange zum Auswählen braucht und Mitternacht verschläft, dann passt es ja noch zusammen.