[__cadetill]

Pues es cuestion de restar los 2 DataTime que tengas

var
  D, D1 : TDateTime;
  Dif : TDateTime;
begin
  Dif := D1 - D;
end;

Espero que te sirva