delphi如何让IE自动执行网页按钮的click事件？(20分)

delphi如何让IE自动执行网页按钮的click事件？请高手帮忙！

摘录了几段代码，
以前在一个很小的程序中写的，
代码没有怎么规格化，
可以参考下，
这是WebBrowser的，
IE需要先得到IE的入口，
然后就一样处理了，
这是在页面中找到名称为'btnCancel' 的按钮，
然后送出click动作

var
doc : IHTMLDocument2;
a :IHTMLElementCollection;
e: IHTMLElement;
begin
doc:=WebBrowser1.Document as IHTMLDocument2;
a:=doc.all;
len:=a.length;
for i:=0 to len-1 do
begin
e:=a.item(i, 0) as IHTMLElement;
idx:=e.getAttribute('name',2);
if idx<>null then
begin
s:=string(idx);
if s='btnCancel' then
begin
memo1.lines.add('**** SEND CANCEL BUTTON COMMAND ***');
memo1.lines.add('TagName=' + e.tagname);
memo1.lines.add('ClassName=' + e.classname);
memo1.lines.add('Name=' + s);
e.click;

如何得到ie入口呢？

ShellWindow := TShellWindows.Create(Application);
try
for i := 0 to ShellWindow.Count - 1 do
begin
Browser := ShellWindow.Item(i) as IWebBrowser2;

然后通过比较 Browser.fullName 找到 IE
Browser.LocationURL 就是当前打开的URL

下面的shellwindow以及borwser应该怎么声明？我知道i是integer的：（
小弟不太明白，高手能不能把整个程序代码贴一下？谢谢！

如果你看了这几句代码，
不能明白shellwindow以及borwser应该如何声明，
我建议你找本delphi入门书，
把obj pascal语法先了解下，
光是这样问是难有提高的，
要自己先下点功夫，打打基础