EmbeddedWB TTabSheet

[Aleksandr69]

Помогите ,каждая новая ссылка открываться должна в новой вкладке

procedure TForm1.EmbeddedWB1BeforeNavigate2(ASender: TObject;
  const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
  Headers: OleVariant; var Cancel: WordBool);
var
p:TTabSheet;
w:TEmbeddedWB;
begin
 Cancel:=true;
 p:=TTabSheet.Create(PageControl1);
 p.PageControl:=PageControl1;
// p.Parent:=PageControl1;
 p.Caption:='1';
 p.Show;
 w:=TEmbeddedWB.Create(p);
 p.InsertControl(w);
 w.Navigate(url);
 w.Align:=alClient;
 w.OnBeforeNavigate2:=EmbeddedWB1BeforeNavigate2;
 PageControl1.ActivePage:=p;
 w.Show;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
 IEAddress1.LoadFromFile('HISTORY.TXT');
 EmbeddedWB1.OnBeforeNavigate2:=nil;
 EmbeddedWB1.Navigate('http://www.ya.ru');
 EmbeddedWB1.OnBeforeNavigate2:=EmbeddedWB1BeforeNavigate2;
end;