请问怎样得到webbrowser中所点击的链接的文字？注意：不是URL!(100分)

如题

用BHO接口

不懂啊

大虾到哪里去啦？五五

分数给我吧
procedure TForm1.b2Click(Sender: TObject);
var
doc:IHTMLDocument2;
all:IHTMLElementCollection;
len,i:integer;
item:OleVariant;
itemname:string;
begin
ado.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+edit1.text+'.mdb'+';Persist Security Info=False';
adpen;
doc:=form2.Wb.Document as IHTMLDocument2;all:=doc.links;
len:=all.length;
for i:=0 to len-1 do
begin
item:=all.item(i,varempty);
itemname:=item.innerText;//title（这里就是你要的东西文字）
ado.Insert;
dbedit1.Field.Text:=inttostr(i);
dbedit2.Field.Text:=itemname;
dbedit3.field.text:=item.href;（而这个就是你要的连接地址）
dbedit4.Field.Text:=formatdatetime('yyyy-mm-dd hh:mm:ss',now);
dbedit5.Field.Text:=edit2.text;
sb.simpletext:=dbedit2.field.text+dbedit3.field.text;
end;

谢谢各位