No me gusta este Codigo, Me ayudan?!

[luisgutierrezb]

mmm podrias utilizar la funcion de la api de windows GetTickCount, te dice el numero de milisegundos o segundos (no recuerdo) que el windows lleva activo, podrias hacer algo asi:
Inicio := GetTickCount;
y al final lo vuelves a obtener para sacar la diferencia y conviertes el resultado a minutos, horas o lo que desees.

la otra es que al restar 2 variables FechaHora, te regresa la diferencia
la parte entera te dice cuantos dias fueron, y la parte decimal la conviertes normal a hora, minutos y demas, y transformas a lo que tu quieres...

[[maeyanes]]

Una variación a tu función formateartiempo:

Código Delphi [-]
function formateartiempo(tpo : integer): string;
begin
  result := Format('%.2d', [tpo])
end;

Saludos...

[[Lepe]]

Directamente trabaja con las rutinas que tienes en la unidad DateUtils de Delphi.

Al menos en delphi 6 tienes:

Código Delphi [-]
HoursBetween(AThen, ANow:TdateTime);
SecondsBetween(AThen, ANow:TdateTime);
MinutesBetween(AThen, ANow:TdateTime);
MillisecondsBetween(AThen, ANow:TdateTime);
DaysBetween(AThen, ANow:TdateTime);

y un largo etc.

Básicamente lo pasas todo a segundos o milisegundos, algo así:

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),
                totalseg mod (60)]);
end;

He separado el carácter 2 puntos, porque creo recordar que interfiere con la función format, ya sería cosa de mirarlo con más detalle.

Consejo: Nunca trabajes con Times, siempre con TdateTime, (por lo que comentas del cambio de fecha).

saludos

[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;

[[marceloalegre]]

Bueno, podemos decir que ha quedado todo correcto con la ayuda de ustedes. Gracias a todos!!!!