如何用WebBrowser1控件来模拟点击网页上的一个按钮呢？？？ ( 积分: 100 )

我从网上找到的代码是这样的：
procedure Tmain.Button3Click(Sender: TObject);
var
o: Olevariant;
begin
o := WebBrowser1.oleobject.document.all.item('btn', 0);
o.click;
end;
可我现在碰到一个网页，却不好使：
http://www.427bbs.cn/login.php
我想用代码点击登陆按钮，，哪位高手是这方面的高手啊？？

myitem := WebBrowser1.Document;

for i := 0 to myitem.all.length - 1 do
begin

if myitem.all.item(i).tagname = 'INPUT' then myitem.all.item(i).click;

end;

接受答案了.