sólo una pequeña corrección al código para tiempos mayores de 3600 segundos
Código Delphi
[-]
function HorasEntre(Antes, Ahora:TdateTime):string;
var totalSegword;
begin
totalSeg := secondsBetween(antes,ahora);
result := format ('%d : %d :%d',
[totalseg div (3600),
(totalseg div (60)) mod 60, totalseg mod (60)]);
end;