判断Webbrowser是否加载完成

var Form1: TForm1; glpDisp: IDispatch = nil;implementation{$R *.dfm}procedure TForm1.EmbeddedWB1DocumentComplete(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant);begin if (glpDisp <> nil) and (glpDisp = pDisp) then begin glpDisp := nil; Caption:= 'ok'; end;end;procedure TForm1.EmbeddedWB1NavigateComplete2(ASender: TObject; const pDisp: IDispatch; var URL: OleVariant);begin if glpDisp = nil then glpDisp := pDisp;end;