If (Frac(Time) <= StrToTime('06:00:00')) and (Frac(Time) > StrToTime('14:00:00'))
Kleiner-gleich 6 Uhr (vor 7 Uhr)
UND größer/nach 14 Uhr
If (x <= 6) and (x > 14)
, bzw. umgestellt
If (6 >= x) and (x > 14)
(6 >= x > 14)
Lösung: Also entweder ODER oder du müsstest die Vergleichsoperatoren umdrehen.
PS: Schau auch mal in die neue DateUtils.
TimeOf ist bestimmt verständlicher als
Frac und es gibt noch viele weitere praktische Funktionen dort, wie z.B.
TimeInRange.