Элементарное. bt1 и wb

[qwizz]

Привет, не могу понять как сделать кнопку при нажатии на которую она в браузере будет открывать ссылки.

Допустим у нас форма батон1 и вб1 в браузере по умалчанию гугл.. мы кликаем на кнопку у нас группа вконтакте открылась кликаем ещё раз и открылась уже другая (есть текстовик где наши группы по порядку есть).
Как заменить 50 кнопок на одну которая по порядку будет открывать и так по кругу?
Уже весь нет излазил. Нужна помощь! В заранее благодарен!

[Gandfil]

Привет. Ну логично, надо считать кол-во нажатий.

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(0, 'open', StringList[n], nil, nil, SW_SHOW);
  Inc(n);
  if (n>50) then n := 1;
end;

Надо только подключить ShellApi.

[phomm]

Немного неполное решение (да и без компонента-веббраузера). Видимо оставлено в нагрузку автору ))
Я чутка всё же улучшу.

var
  StringList: TStringList;
  n: integer = 0;
...
procedure TForm1.FormCreate(Sender: TObject); // обработчик создания формы
begin
  StringList := TStringList.Create();
  StringList.LoadFromFile('c:\blah-blah\mylinks.txt');
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
  wb1.Navigate(StringList[n]);
  Inc(n);
  if (n=StringList.Count) then
    n := 0;
end;

[PathTheir]

у нас форма батон1 и вб1 в браузере по умалчанию гугл

Ничего себе! У нас форма вида батон, и первый вб в браузере "По умАлчанию Гугл".

Это очень сложное задание.

[alextrof94]

Сообщение от PathTheir

Ничего себе! У нас форма вида батон, и первый вб в браузере "По умАлчанию Гугл".

Это очень сложное задание.

Выпендрился? Гуляй. Он говорит, хоть с ошибками и без запятых: "У нас форма, баттон, веб-браузер, в браузере по умолчанию гугл".