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;