用webbrowser如何自动提交这个按钮？？？(100分)

<div id="regSubmit">
<span id="btnCreate" class="regBtn"><b class="tl"><b class="tr"></b></b><button type="submit">同意并提交</button><b class="bl"><b class="br"></b></b></span>
<span id="btnCancel" class="cancelBtn"><b class="tl"><b class="tr"></b></b><button id="cancelBtn" type="button">取消</button><b class="bl"><b class="br"></b></b></span>
<div class="submitting" id="submitting" style="display:none;">提交中，请稍候……</div>
</div>

等待高手帮忙.........

/// <summary>
/// 登录
/// </summary>
/// <param name="userid">用户ID </param>
/// <param name="userpwd">密码 </param>
/// <returns>true:成功 false:失败 </returns>
function TWwweact.Login(userid, userpwd: string): boolean;
var
o:OleVariant;
str,resultstring:string;
begin
fWebBrowser.Stop;
fWebBrowser.Navigate(LoginHtmlUrl);

if self.Wait(10*60)=false then //执行超时
begin
Result:=false;
exit;
end;

resultstring:=GetHtml(fWebBrowser);
if pos('type="password"',resultstring)<=0 then //已登录，则无法寻找到 输入密码框
begin
Result:=true;
exit;
end;
o := fWebBrowser.OleObject.document.all.item('login_name',0); //找到登录用户名的输入框
o.value := userid;
o := fWebBrowser.oleobject.document.all.item('password',0); //找到登录密码的输入框
o.value := userpwd;
o :=fWebBrowser.oleobject.document.all.item('submit',0); //或者用指定表单名称提交
o.Click;

if self.Wait(10*60)=false then //执行超时
begin
Result:=false;
exit;
end;

fWebBrowser.Navigate(LoginHtmlUrl);

if self.Wait(10*60)=false then //执行超时
begin
Result:=false;
exit;
end;

str:=format(welcomeHtmlFlag,[userid]);
resultstring:=GetHtml(fWebBrowser);

Result := (Pos(str,resultstring)>0);
end;
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
以上代码正在使用(delphi7)