По истечении времени сообщение 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;