怎么样让webbrowser只起到一次效果？在线等待(20分)

第二次就不再起作用呢？具体代码如下。
第二次如果再次赋值，就会出错。
procedure TForm1.BitBtn1Click(Sender: TObject);
var
web:TWebbrowser;
begin
web:=TWebbrowser.Create(self);
web.OnDocumentComplete := DocumentComplete;
web.Silent := true;

web.align:=alclient;
web.ParentWindow := form1.Handle ;

web.Navigate('http://127.0.0.1/');
end;

//动态生成webbrowser的documentcomplete事件
procedure TForm1.DocumentComplete(Sender: TObject;const pDisp: IDispatch; var URL: OleVariant);
var
olevariant;
begin
o := (Sender as TWebbrowser).OleObject.document.all.item('user',0); //找到登录用户名的输入框
o.value := 'xxxx' ;
o := (Sender as TWebbrowser).OleObject.document.all.item('pass',0); //找到登录密码的输入框
o.value := '' ;
o := (Sender as TWebbrowser).OleObject.document.all.item('submit',0); //或者用指定表单名称提交
o.click;
end;

这个问题解决了，想再问一个问题。

动态创建组件的事件中对全局变量更改，在另外一个动态组件的事件中没有效果的？？

等待

clientsocket连接上serversocket以后,有默认断开时间吗?

clientsocket连接上serversocket以后,有默认断开时间吗?

无忌来拿分数，多谢帮忙

谢谢了。。。

接受答案了.