Секундомер

procedure TForm1.FormCreate(Sender: TObject);
begin
button2.enabled:=false;
button3.enabled:=false;
end;
 
 
procedure TForm1.Button1Click(Sender: TObject);
begin
min:=0;
sec:=0;
timer1.Enabled:=true;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
button1.Enabled:=false;
button2.enabled:=true;
button3.enabled:=true;
sec:=sec+1;
if sec=60 then begin min:=min+1; sec:=0; end;
if sec<10 then secs:='0'+inttostr(sec);
if sec>9 then secs:=inttostr(sec);
if min<10 then mins:='0'+inttostr(min);
if min>9 then mins:=inttostr(min);
label1.caption:=mins+':'+secs;
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
if button2.Caption='Пауза' then
   begin timer1.Enabled:=false; button2.caption:='Возобновить'; end
   else begin timer1.Enabled:=true; button2.caption:='Пауза'; end;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
timer1.enabled:=false;
label1.Caption:='00:00';
button1.enabled:=true;
button2.caption:='Пауза'
end;
 
end.

procedure TForm1.button3Click(Sender: TObject);
begin
  timer1.enabled := false;
 
  label1.Caption := '00:00';
 
  button2.caption := 'Пауза';
 
  button1.enabled := true;
  button2.enabled := false;
  button3.enabled := false;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
 function LZ(i : integer) : string;
  begin
   if i > 9 then result := IntToStr(i) else result := '0' + IntToStr(i);
  end;
begin
 Label1.Caption := Format('%s:%s',[LZ(sec div 60), LZ(sec mod 60)]);
 inc(sec);
end;