[__cadetill]

Hola

Acabo de hacer este ejemplo

procedure TForm1.Button1Click(Sender: TObject);
var i : Real;
    Dias : integer;
    Horas : TTime;
begin
     i := (Data1.Date + Time1.Time) - (Data2.Date + Time2.Time);

     Dias := Trunc(i);
     Horas := i - Dias;

     ShowMessage('Diferencia de ' + IntToStr(Dias) + 
              ' dias y ' + TimeToStr(Horas) + ' horas');
end;

En el form he puesto 2 TDateTimePicker con la propiedad kind a dtkDate, 2 TDateTimePicker con la propiedad kind a dtkTime y un TButton.

A ver si te sirve este ejemplo