[[gluglu]]

Me acabo de dar cuenta de un detalle :

Espero que estés comparando los variables correctas de TDateTime de tu aplicación.

Estás mostrando comparaciones entre TDateTime1 y TDateTime2. Supongo que deberías tener declarado en tu programa dos varibales del tipo TDateTime. Algo así como :

Código Delphi [-]
var
  Fecha1, Fecha2 : TDateTime;
  ...

Y la comparación estás haciéndola con Fecha1 y Fecha2 :

Código Delphi [-]
if Fecha1 = Fecha2 then ...

Me desconcierta un poco tu código donde haces la comparación entre TDateTime1 y TDateTime2. Si es una simple cuestión de nomenclatura de tus variables, bien. Pero si no es así, revísalo.

Por otro lado, deberías de asignar los valores de tus variables de fecha y hora a comporar a unos strings de esta manera :

Código Delphi [-]
var
  Aux_String1, Aux_String2 : String
  ...
 
// en algún procedimiento de tu programa
Aux_String1 := FormatDateTime('dd/mm/yyyy hh:nn:ss', Fecha1);
Aux_String2 := FormatDateTime('dd/mm/yyyy hh:nn:ss', Fecha2);

y que expongas aquí los valores que te devuelven Aux_String1 y Aux_String2 para ver tus valores concretos.