TChromium и onBeforePopup — Delphi как запретить создание новых окон?

Question

[inetinf]

доброго времени суток
я блокирую новые окна
procedure MainThread.mainchromeBeforePopup(Sender: TObject;
const browser: ICefBrowser; const frame: ICefFrame; const targetUrl,
targetFrameName: ustring; targetDisposition: TCefWindowOpenDisposition;
userGesture: Boolean; var popupFeatures: TCefPopupFeatures;
var windowInfo: TCefWindowInfo; var client: ICefClient;
var settings: TCefBrowserSettings; var noJavascriptAccess: Boolean;
out Result: Boolean);
begin

Result:=True;
end;

но так же блокируются окна с сообщениями. Как можно этого избежать