Установка времени таймера через команду меню

var
  Count,
  CounEnd : Integer;
 
// для всех пунктов меню отвечающих за установку времени таймера.
procedure TForm1.MeniItemClick(Sender: TObject);
begin
  CounEnd := (Sender as TMenuItem).Tag;
  Count := 0;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if Count >= CountEnd then
    Timer1.Enabled := False
  else
    inc(Count);
end;

var
  min,sec:Integer;
 
procedure TForm1.N301Click(Sender: TObject);
begin
  sec:=30;
  N301.Checked:=True;
  txt1.Caption:='  00:'+ FloatToStr(sec);
end;
 
procedure TForm1.N201Click(Sender: TObject);
begin
  sec:=20;
  N201.Checked:=True;
  txt1.Caption:='  00:'+ FloatToStr(sec);
end;
 
procedure TForm1.N101Click(Sender: TObject);
begin
  sec:=10;
  N101.Checked:=True;
  txt1.Caption:='  00:'+ FloatToStr(sec);
end;
 
procedure TForm1.N51Click(Sender: TObject);
begin
  sec:=5;
  N51.Checked:=True;
  txt1.Caption:='  00:0'+ FloatToStr(sec);
end;
 
procedure ShowTime;
var
    buf: string[20];
begin
  // минуты и секунды выводим двумя цифрами
  if min < 10 then
     buf := '  0' + IntToStr(min) + ':'
  else
     buf := '  '+ IntToStr(min) + ':';
 
  if sec < 10 then
    buf := buf + '0' + IntToStr(sec)
  else
    buf := buf + IntToStr(sec);
 
  Form1.txt1.Caption := buf;
end;
 
procedure TForm1.tmr1Timer(Sender: TObject);
begin
  if sec=0 then
  begin
    if N301.Checked=True then
      sec:=31;
    if N201.Checked=True then
      sec:=21;
    if N101.Checked=True then
      sec:=11;
    if N51.Checked=True then
      sec:=6;
  end;
  sec := sec - 1;
  ShowTime; // показать, сколько времени осталось
end;
 
procedure TForm1.btn1Click(Sender: TObject);
begin
  tmr1.Enabled := True;   
end;

// для всех пунктов меню отвечающих за установку времени таймера.
procedure TForm1.MeniItemClick(Sender: TObject);
begin
  CounEnd := (Sender as TMenuItem).Tag;
  (Sender as TMenuItem).Checked := True;
  txt1.Caption := '  00:' + IntToStr((Sender as TMenuItem).Tag);
  Count := 0;
end;