No me gusta este Codigo, Me ayudan?!

[Julià T.]

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,  //no lo he probado
                totalseg mod (60)]);
end;