[Alegun]

Этот код вроде на кнопки действует, не для ссылок, наверное надо так

Код:

...
if spisok = 'Сражаться' then
 begin
  spisok:= WebBrowser1.OleObject.Document.links.Item(i);
  Webbrowser1.Navigate(spisok);
  Exit;
...
end;