delphi禁止webbrowser弹出窗口或者脚本错误

webbrowser1.silent:=true; //屏蔽脚本错误

procedure TForm1.WebBrowser1NewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool);
begin
Cancel:=True; //禁止弹出窗口
end;