Twebbrowser Onnewwindow2 Problem

[dtrace]

Also hier ist der Code um ein neues Tab zu erstellen:

Delphi-Quellcode:

procedure TFMain.NewTab(URL, Caption: String);
 var //WB: TWebbrowser;
     TS: TadvOfficePage;//TTabExtsheet;
     BT: TTeSpeedButton;
     PA: TTePanel;
     LA: TTeLabel;
     CB: TTecheckbox;
begin


  Tab.AddAdvPage(Caption);
  Tab.ActivePageIndex := tab.AdvPageCount-1;
  TS := Tab.ActivePage;

  TS.Parent  := Tab;

  TS.Caption := Caption;


   Tab.ActivePage := TS;

   WB := TEmbeddedWB.Create(ts);


   //setze Webbrowser in Tabsheet
   TControl(WB).Parent := TS;

hier ist die Methode um den aktuellen Browser-Controll zu ermitteln:

Delphi-Quellcode:

function TFMain.getCurrentWB: TEmbeddedWB;
begin

  Result := nil;
  with Tab do
    if ActivePage.ControlCount > 0 then
    begin
      if ActivePage.Controls[0] is TEmbeddedWB then
      begin
        Result := (TEmbeddedWB(ActivePage.Controls[0]));
      end else
        Result := Webbrowser1;
    end;
end;