Twebbrowser Onnewwindow2 Problem

[dtrace]

Hallo,
ich habe ein Problem. Und zwar arbeite ich gerade an meinem eigenem Webbrowser. Dieser Webbrowser unterstützt das Tabbing Browsing.

Zu meinm Problem: Es gibt z.B. Links auf Websites die im Firefox Browser in einem weiteren Tab angezeigt werden, dass funktioniert bei mir auch. Aber es gibt auch seiten, die nicht im Tab sondern in einem neuen Fenster aufgebaut werden...wie erkenne ich das. Denn bei mir kommt ein OLE Object Fehler.

hier mein Code

Delphi-Quellcode:

 procedure TFMain.WebBrowser1NewWindow2(ASender: TObject; var ppDisp: IDispatch;
  var Cancel: WordBool);

begin
if  self.PopUpBlock then
begin
 ppDisp := nil;
 Cancel := true;
end else
begin
 try
   Cancel := false;
   NewTab('About:Blank','Zurfo - Web');
   tab.ActivePage.Show;
   Wb := GetCurrentWb;   //ermitteln den aktiven Webbrowser Controll...
   

   WaitForBrowser(WB);
  
   ppdisp := WB.Application;
   WaitForBrowser(WB);


 except on E: Exception do begin end;

 end;


 end;
end;