delphi webbrowser中拦截弹出窗口

// Set OnNewWindow Event
FBrowser.OnNewWindow2 := OnIENewWindow;

procedure TfrmBizMain.OnIENewWindow(ASender: TObject; var ppDisp: IDispatch;
var Cancel: WordBool);
var
FBrowser: TIEBrowser;
begin
if ASender is TIEBrowser then
begin
Cancel := not actNewTab.Execute; // Create A New WebBrowser
if not Cancel then
begin
FBrowser := GetBrowser;// Get The Browser just Created
if Assigned(FBrowser) then
ppDisp := FBrowser.Application;
end;
end;
end;