Problemas con el Time.

[[Lepe]]

Te recomiendo que eches una visual a la función HoursBetween, por ejemplo, desde la ayuda puedes acceder a todas las rutinas que hay en la unidad DateUtils, que son extensas y permite comparar fechas/horas de una forma muy comoda.

Una sugerencia, nunca uses comparaciones de hora (TTime), siempre usa comparaciones de fecha y hora (TdateTime), de esta forma siempre obtendrás los resultados correctos:

Funciones que te serviran:
RecodeDate
RecodeTime
RecodeDatetime
EncodeTime
EncodeDatetime
HoursBetween
MinutesBetween
etc.

Un saludo