在webbrowser1中查找特定的二个字符串 (100分)

在webbrowser1中查找特定的二个字符串。找到后做一件事，找不着做别一件事。

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
//请大虾给出
end;

另外在delphi6的Demos中没有找到关于webbrowser的例子，请给出地址。

请参考以下网址，上面有大量的WEBBrowser编程实例
http://eagleboost.myrice.com/issues/Materials/Articles/TWebBrowser.htm

var
o: Olevariant;
doc: IHTMLDocument2;
all: IHTMLElementCollection;
len, i, flag: integer;
item: IHTMLElement;
vAttri: Variant;
begin
doc := WebBrowser1.document as ihtmldocument2;
all := doc.get_all;
item := all.item(0, varempty) as IHTMLElement;
vAttri := item.getAttribute('InnerText', flag);
if pos('qa',vAttri)>0 then showmessage('登陆成功,当前用户为'+Edit2.Text);
end;

以前一段代码

你改改就行了 历遍所有的item 通过它的'InnerText'和你的字符串比较就行了

出现这么个错误：
Undeclared identifier:"IHTMLDocument2"
Undeclared identifier:"IHTMLElementCollection"
UNdeclared identifier:"IHTMLElement"

uses mshtml;

谢谢二位的热心。问题全部解决了。

忘了点接受了。