Resta de fechas Y horas

[Iskariote0087]

Hola que tal?
Estoy teniendo un problema al fechas y horas.La historia es la siguiente:
Tengo estas variables

FechaYhoradeHoy:TdateTime; 
FechaYhoraDasedatos:TdateTime; 
HoraDeApertura:TdateTime; 
DiaDeApertura:TdateTime;

Y en ellas cargo:

HoraDeApertura:=QCerradosAtiempo.FieldByName('InciHoAper').AsDateTime ;
DiaDeApertura:=QCerradosAtiempo.FieldByName('InciFeAper').AsDateTime ;
FechaYhoradeHoy:=(Now);
FechaYhoraDasedatos:=DiaDeApertura+HoraDeApertura;

Bien el tema es que el resultado que me aparece en FechaYhoraDasedatos despues de hacer la resta es un buen resultado solo si el dia es el mismo qu el actual, es decir, si yo abro un parte a las
10:00 del dia de hoy y lo cierro a las 14:00 de hoy me devuelve un resultado de 04:00 y eso esta bien pero si hago lo mismo con un dia diferente el resultado deberia ser 28 horas y en cambio me devuelve tambien 04:00.
lo que necesito cuando se haga la resta es que no tenga en cuenta solo las horas si no tambien el dia.Como puedo hacer esto??????????

Un saludete perretes
Iskariote