In der
Unit DateUtils gibt es auch noch die folgenden Funktionen:
function HoursBetween(const ANow, AThen: TDateTime): Int64;
function MinutesBetween(const ANow, AThen: TDateTime): Int64;
function SecondsBetween(const ANow, AThen: TDateTime): Int64;
Vielleicht helfen die dir weiter. Daraus kannst du dann relativ einfach das von dir gewünschte Ergebnis zusammenbasteln.