zerowanie stopera w delphi

begin
 Sekundy :=Sekundy+1;
  if sekundy = 60 then
  begin
    sekundy := 0;
    minuty := minuty+1;
    sekundy := 0;
  end
else if minuty = 60 then
  begin
    minuty := 0;
    godziny := godziny+1;
  end;
if sekundy < 10 then
  begin
    s := '0' + IntToStr(sekundy);
  end
else
  s := IntToStr(sekundy);
if minuty < 10 then
  begin
    m := '0' + IntToStr(minuty);
  end
else
  m := IntToStr(minuty);
if godziny < 10 then
  begin
    g := '0' + IntToStr(godziny);
  end
else
  g := IntToStr(godziny);
  Label1.Caption := g+':'+m+':'+s;
end;

procedure TForm1.btnStartClick(Sender: TObject);
begin
 Timer1.Enabled:= not Timer1.Enabled; //start / stop
 if Timer1.Enabled then //jezeli stoper wlaczony to zerowanie
 begin
   Stoper:= 0; //zerowanie
   Label1.Caption:= TimeToStr(Stoper);//wyswietl
 end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Stoper:= IncSecond(Stoper); //dodaj 1 sekunde
  Label1.Caption:= TimeToStr(Stoper);//wyswietl
end;