секундомер в Delphi

есть секундомер с двумя кнопками как его переделать что бы он был с одной кнопкой? вот исходник

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
x:=0;
Timer1.Enabled:=True;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Timer1.Enabled:=False
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
x:=x+1;
y:=x div 60;
Label1.Caption:=IntToStr(y div 60)+':'+IntToStr(y mod 60)+':'+IntToStr(x mod 60);
end;