判断Webbrowers是否加载网页完成了执行下面的语句

Question

代码如下：var
  Form1: TForm1;
  Ok:Boolean=False; //全局
implementation
{$R *.dfm}
procedure TForm1.btn1Click(Sender: TObject);
begin
 webbrowser.Navigate('www.qq.com');
  while  ok do
  begin
  ShowMessage('OK');
 //执行的语句块
  end
end;
procedure TForm1.webbrowserDocumentComplete(ASender: TObject; const pDisp: IDispatch;
  var URL: OleVariant);
begin
if webbrowser.Application=pDisp then Ok:=True;
end;
怎么让webbrowser.打开一个网页完毕后，通过判断后执行下面的语句呢。DelphiWebbrowers

Answer 1

procedure TForm1.btn1Click(Sender: TObject);
begin
  webbrowser.Navigate('www.qq.com');
end;procedure TForm1.wb1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  if webbrowser.Application = pDisp then
    ShowMessage('OK');
end;