delphi中用TWebBrowser控件在自动登录的时候如何禁止网页下弹出来的窗口

delphi中用TWebBrowser控件在自动登录的时候怎么禁止网页上弹出来的窗口
delphi中运用TWebBrowser控件在自动登录的时候怎么禁止网页上弹出来的窗口，我是一个新手

------解决方案--------------------
procedure TfrmMain.WebBrowser1NewWindow2(Sender: TObject;
var ppDisp: IDispatch; var Cancel: WordBool);
begin
ppDisp:=WebBrowser2.Application ;//弹出的网页
end;