求助！webbrowser自动提交表单的问题！

求助！webbrowser自动提交表单的问题！
webbrowser自动提交表单的问题！
在一个事件里面，为什么打开网页，紧接着提交表单会出错呢？
这个问题如何解决啊？
procedure TForm1.Button1Click(Sender: TObject);
var
Doc:IHTMLDocument2;
input:OleVariant;
userinputelement,pwdinputelement:ihtmlinputelement;

begin
webbrowser1.Navigate('http://www.......com/.....');
doc:=webbrowser1.document as ihtmldocument2;
userinputelement:=(doc.all.item('Email',0) as ihtmlinputelement);
userinputelement.value:=‘abcld’;
................
end;

上面的例子就是，，我是在一个事件里打开网页，另一个事件填写表单 才解决这个问题；

可是如何在一个事件里 就能先打开网页后提交表单呢？？

先谢谢大家了！