Zeitberechnung mit Tagen

[S4SH1981]

Delphi-Quellcode:

var 
  Date1, Date2, Difference : TDateTime; 
begin  
  Date1 := StrToDateTime('01.11.2006 10:00:00'); 
  Date2 := StrToDateTime('02.11.2006 12:15:00'); 
  Difference := Date2 - Date1; 
  ShowMessage (IntToStr(Trunc(Difference * 24)) + FormatDateTime(':nn:ss', Difference)); 
end;

Dabei zeigt mir das Programm 26:15:00

Ich hätte es aber so, dass es mit 1 Tag 26 Stunden 15 Minuten 00 Sekunden anzeigt.