webbrowser - popupblocker

[toms]

Delphi-Quellcode:

procedure TForm1.BrowserNewWindow2(Sender: TObject; 
  var ppDisp: IDispatch; var Cancel: WordBool); 
begin 
  if Blocking then 
    begin 
      Cancel := True; 
    end; 
end;

So lässt sich aber auch kein neues Fenster öffnen!?