等页面加载完成再运行下一句代码,该怎么解决

等页面加载完成再运行下一句代码
procedure TForm1.Button2Click(Sender: TObject);
var
  Doc: IHTMLDocument2;
begin
  doc := iethis.document as IHTMLDocument2;  //获得Webbrowser对象中的文档对象
  doc.parentWindow.execScript('toOpen(''/Edit.html'',1)', 'javascript'); //toOpen是一个js函数，作用是加载一个指定的网页
  SpeedButton4.Click;
end;

 在这个过程中，每次这个''/Edit.html''还没有加载完，就会执行SpeedButton4.Click过程，天啊，SpeedButton4.Click操作的是Edit.html页面上的元素，自然会报错，研究了几天，就是搞不明白，请大哥们赐教。
 能不能加载完了再执行呀
我的环境：delphi7
------解决思路----------------------
while not (WebBrowser.ReadyState = READYSTATE_COMPLETE) do
   Application.ProcessMessages;

判断WebBrowser的ReadyState状态