TWebBrowser弹出窗口问题

我用TWebBrowser开发的浏览器，如何防止烦人的‘弹出窗口’
procedure TMainForm.IE1NewWindow2(Sender: TObject; var ppDisp: IDispatch;
var Cancel: WordBool);
begin
Cancel := True;
end;