[Ru0208]

По истечении времени сообщение 2 выводится бесконечное число раз через секунду, а нужно через час, после нажатия на кнопку. И после первого сообщения. Где ошибка?

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
  BtnClicked:= True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  I := I + 1;
  if (I >= 600) and BtnClicked then
    begin
      ShowMessage('сообщение 1');
      BtnClicked := False;
      I := 0;
    end
  else
    begin
       if I >= 3600 then
       begin
         ShowMessage('сообщение 2');
         I := 0;
       end;
    end;
end;