Creo que no todas las versiones de Delphi traen esas funciones (no la veo en Delphi 7, al menos). En todo caso, siguiendo los pasos de
maese Casimiro, podríamos usar esta versión simplificada:
Código Delphi
[-]
function TimeInRange(ATime: TTime; AStartTime, AEndTime: TTime): Boolean;
begin
Result := (Frac(AStartTime) <= Frac(ATime)) and (Frac(ATime) <= Frac(AEndTime));
end;
LineComment Saludos