Cronometro en un Label

[[seoane]]

Coloca en un Form un Label, un Timer y un Boton. Entonces declara una variable global llamada Cominezo:

Código Delphi [-]
TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    Comienzo: TDateTime; //<-- La variable de la que hablo
  public
    { Public declarations }
  end;

En el evento del boton coloca esto:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled:= not Timer1.Enabled;
  if Timer1.Enabled then
  begin
    Comienzo:= Time;
    label1.Caption:= TimeToStr(0);
  end;
end;

Y en el evento del Timer

Código Delphi [-]
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  label1.Caption:= TimeToStr(Time - Comienzo);
end;

Coloca, en la propiedades del Timer, la propiedad Enabled a False y el intervalo a 1000 o a 500, eso da igual.