以下是在 TWebBrowser 控件中实现的，原理一样！！！
uses .......,mshtml;
procedure TForm1.Button1Click(Sender: TObject);
var
sString,s:string;
doc:IHTMLdocument2;
R:IHTMLTxtRange;
v:variant;
begin
sString :='问题分类';
try
doc :=IHTMLdocument2(webbrowser1.Document) ;
R :=IHTMLTxtRange(doc.selection.createRange);
R.findText(sString,1,0);
R.select;
v:=r;
s:=format('Left:%d Top:%d Width:%d Height:%d',
[integer(v.boundingLeft),integer(v.boundingTop),integer(v.boundingWidth),integer(v.boundingHeight)]);
showmessage(s);
except
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
webbrowser1.navigate('http://www.delphibbs.com/delphibbs/dispq.asp?lid=1445738');
end;
