[ryderx34]

интервал таймера - 1000

Код:

var
  I: Integer;
  BtnClicked: Boolean;

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('something...');
      BtnClicked := False;
      I := 0;
    end
  else
    begin
       if I >= 3600 then
       begin
         ShowMessage('something...');
         I := 0;
       end;
    end;
end;