判断WebBrowser是否加载完成.

FirstpDisp : IDispatch;//全局变量；
ChkOpen, ChkOk : Boolean;//全局变量；
FirstpDisp := nil;//浏览URL之前赋nil；
procedure TForm1.FormCreate(Sender: TObject);
begin
   ChkOpen := true;
   ChkOk := false;
end;

procedure TForm1.WebBrowser1BeforeNavigate2(Sender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
begin
   if ChkOk and ChkOpen then
     begin
        ChkOk :=false;
        ChkOpen :=false;
        FirstpDisp := pDisp;
     end;
end;
procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
                   ChkOk :=true;
                if FirstpDisp = pDisp then
                  begin
                      //你要执行的任务
                      //
                   end;
end;