[true]

нашел код, он исполняется но то что хочу не выходит

Код:

procedure TForm1.Button2Click(Sender: TObject);

VAR
    ts  :   TTabSheet;
    wb  :   TWebBrowser;
begin
   WebBrowser1.Application;
    ts:=TTabSheet.Create(Self);
    ts.PageControl:= PageControl1;
    ts.Visible:= True;
    ts.Caption:= IntToStr(PageControl1.PageCount); 
    wb:= TWebBrowser.Create(ts);
    TWinControl(wb).Parent:= ts;
    wb.Align:= alClient;
    wb.Visible:= True;
    PageControl1.ActivePageIndex:= PageControl1.PageCount-1;
    
end;