Bloquear Popups en un WebBrowser

[c0lo]

Ojo este metodo que se indica, no me funciona aun sigue saliendo Popups

procedure TMyForm.MyWebBrowserNewWindow2(Sender: TObject; var ppDisp: IDispatch; var Cancel: WordBool);
begin
  Cancel := True;
end;