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
Comienzo: TDateTime; public
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.