Lo que tengo que comparar son dos TDateTime con fecha y hora, y como he dicho he probado a compararlo tal cual, compararlas con la funcion "CompareDateTime" y por ultimo he probado a pasarlo a una cadena y comparar las cadenas, que incomprensiblemente y siendo iguales no se comparan bien.
If TDateTime1 = TDateTime2 Then //No funciona
If CompareDateTime(TDateTime1, TDateTime2) = 0 Then //No funciona
c1 := DateTimeToStr(TDateTime1);
c2 := DateTimeToStr(TDateTime2);
If c1 = c2 Then //Tampoco funciona
A ver si alguien tiene idea de porque me pasa esto.