Улучшение кода

[The riddle]

Товарищи,учусь работать с таймером, переделываю программку,на форме Lable3,Button2,Timer. При работе программы в лейбл все по нулям и идет отсчет по возрастающей,при двойном нажитии он останавливается,при 3ем и 4 ом все нормально(обратный отсчет/стоп 29:59) Помогите пожалуйста изменить:

implementation

{$R *.dfm}
var

  min: integer;  
  sec: integer;  


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.Label3.Caption := buf;
end;
 procedure TForm1.Timer1Timer(Sender: TObject);
begin
 sec := sec - 1;
  ShowTime; 
  if (min = 0) and (sec = 0) then
  
    begin
      Timer1.Enabled := False;   
      ShowMessage('Заданный интервал истек!');
      Button1.Caption := 'Запустить';
      Label3.Visible := False;   
    
exit;
    end;

  if (sec = 0) and (min > 0) then
     begin
         sec := 60;
         min := min - 1;
     end;

end;
 procedure TForm1.Button2Click(Sender: TObject);
begin
 if Form1.Timer1.Enabled then
 
    begin
      Timer1.Enabled := False;  
      Button2.Caption := '';
      Label3.Visible := True;   
    

    end

  else
   
    begin
      min := 24;
      sec := 59;
      if (sec = 0) and (min = 0) then
      begin
        ShowMessage('Установите время!');
        exit;
      end;

      Timer1.Enabled := True;  
    
Label3.Visible := True;
      Button1.Caption := 'Остановить';
      ShowTime;
    end;
end;
end.

Showmessage ('Установите время!)-это я убиру

[Stilet]

Ничего что-то я не понял...
Давай подробнее обьясняй.

[The riddle]

Мне нужно создать программу тестирования,там я хочу разместить таймер на 30 минут,программа,которую я написала,должна работать так: нажимаем на кнопку,запускается таймер(обратный отсчет на выполнение теста).А у меня при запуске высвечивается не обратный отсчет,а 0:0-1 и т.д-увеличивается время,но когда я несколько раз нажимаю кнопку запуска таймера,то все работает нормально.Как сделать так,чтоб таймер сразу нормально запускался?