Cronometro

[[FGarcia]]

Que tal Foristas!
He buscado en los hilos pero no he encontrado algo como esto; necesito un cronometro, es decir un indicador del tiempo transcurrido desde que se inicio un proceso. Pense en que una sencilla operacion de sustraccion me lo haria:

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  TiempoInicio := Now;
  Label1.Caption := TimeToStr(Now - TiempoInicio);
end;

El intervalo del timer lo tengo a 2.
El resultado que obtengo es: 12:00:00 a.m. yo esperaba algo asi: 00:00:00
Tal vez esta tan facil que no lo veo. Gracias por la ayuda

[jachguate]

El problema de formato lo tenes por la función que estas usando para convertir a string. Mejor usá DateTimeToStrFmt y envia el formato que te interese.

Saludos.