怎么怎么用程序点击WebBrowse控件里放的网页中的一个按建。(200分)

新手问问题，大家别笑话，某个网页里有一个“发送”这样的按建，怎么设计程序点击它？
已经装好WebBrowse控件里的网页。

// 提交
var
HtmlDoc: IHTMLDocument2;
myitem: Olevariant;
i: integer;
begin
myitem := WebBrowser1.Document;
for i := 0 to myitem.all.length - 1 do
begin
if myitem.all.item(i).tagName = 'INPUT' then
if Uppercase(myitem.all.item(i).type) = 'SUBMIT' then
myitem.all.item(i).click;
end;
end;

// 具体的如果有多个，可以再看他的 Name属性,再click

procedure TForm2.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
k:integer;
t:OleVariant;

begin


if (WebBrowser1.LocationURL='网页登录地址') then
begin
t := WebBrowser1.Document;
for k := 0 to t.all.length - 1 do
begin
if (uppercase(t.all.item(k).tagName)='INPUT')and (uppercase(t.all.item(k).Name)='用户名框 的name 名称') then
t.all.item(k).value:=editUserName.Text;
if (uppercase(t.all.item(k).tagName)='INPUT')and (uppercase(t.all.item(k).Name)='密码框的name 名称') then
t.all.item(k).value:=editPasswd.Text ;
if (uppercase(t.all.item(k).tagName)='INPUT')and (uppercase(t.all.item(k).Name)='登录按钮 的name 名称') then
begin
t.all.item(k).click;
break;
end;
end;





if (WebBrowser1.LocationURL='登录后转向的页面地址') then
showmessage('登录成功')

end;

谢谢了。