[hkdkest]

в событие комплейт пишешь:

Код:

for i := 0 to Webbrowser1.OleObject.Document.links.Length - 1 do //Вывод ссылок в мемо
Memo1.Lines.Add(Webbrowser1.OleObject.Document.Links.Item(i));