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

Question

我在编写一个使用WebBrowser自动填写网页内容的程序，
使用下面的代码打开网页
WebBrowser1.Navigate(Trim(Edit1.Text));但是，经过我的测试，实际上，网页的内容完全加载到WebBrowser控件里面还需要等待一段时间，如果网页的内容还没有完全加载到控件里面，则很多操作如：获取网页的信息等都会出错！
现在请高手指教，如何判断网页内容已经完全加载完毕，既我想做如下处理，
代码思路：WebBrowser1.Navigate(Trim(Edit1.Text));   //打开网页
if 网页内容加载完毕 then                 //判断是否完全打开
begin
    进行提取网页内容等等其他操作 
end;请高手指教如何判断？？另外，我的整个操作都是程序自动完成的，不需要任何人的手工参与！！谢谢

Answer 1

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;