смена действия

[designer999]

спасибо, сделал

[mutabor]

Кстати тут таки можно по другому сделать. Список строк заполнить именами сайтов, по нажатию кнопки увеличивать счетчик и передавать из списка сайт с этим индексом. Тогда case конструкция не нужна.

Итого:

Состав:
TStringList - 1 штука
Переменная счетчик - 1 штука
Список сайтов - 1 штука

Приготовление:
Объявляем глобальную переменную k: integer = 0; и список Sites: TStringList;
Создать список Sites:=TStringList.Create; (это делается один раз, например в обработчике OnCreate формы)
Заполняем список или из файла методом LoadFromFile или ручками в коде.
Пишем код обработчика кнопки

Inc(k);
if k >= sl.Count then k:=0;
webbrowser1.Navigate(Sites[k]);

Кушайте на здоровье

[Greek9000]

Сообщение от Манжосов Денис :)

Тупой вопрос. Можно вместо k использовать Tag у кнопки, если не нравится

Тупой ответ. Зря профессионалом подписался.

По другому можно сменить обработчик события.

Вот один из вариантов:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := 'Алгоритм №1 - Случайное число = '+IntToStr(Random(5000));
  inc(FCounter);
  if FCounter > 5 then Button1.OnClick := Button2Click;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Label1.Caption := 'Алгоритм №2 - Общее количество нажатий = '+IntToStr(FCounter);
  inc(FCounter);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  FCounter := 0;
end;

На форме 2 кнопки и Label. В привате формы объявлена FCounter.
По условию if FCounter > 5 then ... меняем кнопке обработчик события.

Можно, конечно, не создавать вторую кнопку, а определить спец. тип (процедурный). Для кнопок это TNotifyEvent.
Таким способом можно даже по таймеру присваивать кнопке случайное действие из десятка (или сколько там потребуется) различных процедур.