在线等待，TWebBrowser的一个小问题

[csublue]

我在编写一个使用WebBrowser自动填写网页内容的程序，
使用下面的代码打开网页
WebBrowser1.Navigate(Trim(Edit1.Text));

但是，经过我的测试，实际上，网页的内容完全加载到WebBrowser控件里面还需要等待一段时间，如果网页的内容还没有完全加载到控件里面，则很多操作如：获取网页的信息等都会出错！
现在请高手指教，如何判断网页内容已经完全加载完毕，既我想做如下处理，
代码思路：

WebBrowser1.Navigate(Trim(Edit1.Text)); //打开网页
if 网页内容加载完毕 then //判断是否完全打开
begin
进行提取网页内容等等其他操作
end;

请高手指教如何判断？？另外，我的整个操作都是程序自动完成的，不需要任何人的手工参与！！谢谢

[caoruomou]

TargetFrameName:=AnsiString('');
PostData:=OleVariant(false);
Heads:=AnsiString('');
Flags:=OleVariant(0);
WebBrowser1.Navigate(Trim(Edit1.Text),Flags,TargetFrameName,PostData,Heads);
Sleep(500);
while WebBrowser1.Busy or (WebBrowser1.ReadyState <> READYSTATE_COMPLETE) do
Application.ProcessMessages;

[「已注销」]

同意楼上的