[[Lepe]]

Un TDatetime está implementado como un número en float:
- La parte entera son los días transcurridos desde 31/12/1899
- La parte fraccionaria son las horas y minutos de un día cualquiera.

Así que "am/pm" no influye para nada a la hora de realizar cálculos, solo para mostrar la información.

Dices que haces la asignación: momento1 := date, pero Date(), es una función que solo retorna la fecha (es decir, trunca el valor de la hora), deberías usar la función Now() si quieres tener en cuenta la fecha y hora.

Por otra parte, ten en cuenta el cambio de fecha; quiero decir, si tienes
01/01/2007 01:00:00 y le restas
01/01/2007 23:00:00 te va a dar 22 horas de diferencia (es el resultado correcto).

Sin embargo, la diferencia entre:
01/01/2007 23:00:00
02/01/2007 01:00:00
te dirá que son 2 horas.

Cuando se empieza a trabajar con fechas, suele cometerse ese error, no sé si es tu caso, pero creo conveniente hacer la aclaración.

Saludos