neues browserfenster in tabsheet öffnen

[jAcK oRsEn]

So jetzt hab ich folgendes um so viele Tabsheets wie möglich erzeugen zu können, aber
es funktioniert nicht...

Delphi-Quellcode:

procedure TForm1.webbrowser1NewWindow2(Sender: TObject;
  var ppDisp: IDispatch; var Cancel: WordBool);
var
  TabSheet: TTabSheet;
  Web: TWebbrowser;
begin
  TabSheet := TTabSheet.Create(Form1.pagecontrol1);
  Web := TWebbrowser.Create(TabSheet);
  with TabSheet do
  begin


    PageControl := Form1.pagecontrol1;
  end;
  ppDisp := Web.DefaultDispatch;
  TWinControl(Web).Parent := TabSheet;
  TWinControl(Web).align := alclient;
end;