Найти все линки в WEBBrowser

procedure
 TForm1.Button1Click(Sender: TObject); 
var
 
  i: Integer; 
begin
 
  for
 i := 0 to
 Webbrowser1.OleObject.Document.links.Length - 1 do
 
    Listbox1.Items.Add(Webbrowser1.OleObject.Document.Links.Item(i)); 
end
;

Другое по теме:

• Очистка кэша в IE
• WEB страничка внутри Delphi приложения
• Автоматическое заполнение HTML-форм в браузере