Como hacer un Cronometro sencillo.

private
    { Private declarations }
  public
    { Public declarations }
    minutos: integer;
    Segundos: integer;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
    Segundos:= segundos +1;
    If segundos = 60 then
    begin
    segundos:= 0;
    minutos:= minutos +1;
    end;
    Label1.Caption:=IntToStr(Segundos);
    Label2.Caption:=IntToStr(Minutos);
    If minutos = 60 then
    begin
    minutos:= 0;
    end;
    Label2.Caption:=IntToStr(Minutos);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   if Timer1.Enabled = true then
    begin
      Timer1.Enabled:= false;
      Button1.Caption:='Comenzar';
    end
  else
    begin
 
      Timer1.Enabled:= true;
      Button1.Caption:='Detener';
    end;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
   segundos:= 0;
   minutos:= 0;
    Label1.Caption:=IntToStr(Segundos);
    Label2.Caption:=IntToStr(Minutos);
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  Close;
end;