Quiero un método que compare los tiempos, por ejemplo, si Atime ocurre antes que Btime para hacer algo, usaría una función CompareTime pero mi problema con esta función es lo que se dice en "Paréntesis en negrita" (ver más abajo)

Llame a CompareTime para comparar los dos valores TDateTime especificados por A y B. CompareTime devuelve: LessThanValue si A ocurre antes en el día que B (incluso si A ocurre un día posterior a B) GreaterThanValue si A ocurre más tarde en el día que B(incluso si A ocurre un día anterior a B)