begin
 link:=WebBrowser1.OleObject.Document.getelementsby tagname('a');
 for i:=0 to link.length-1 do
 if pos('http://mysite/index.php?recall=',link.item(i).href)<>0 then ListBox1.Items.Add(link.item(i).href);

end;