Создать копию TTabSheet

TTabSheet* tab = new TTabSheet(PageControl1);
        tab->Assign(TabSheet1);
        tab->PageControl = PageControl1;
        tab->TabVisible = true;

   TTabSheet *tsb = new TTabSheet(PageControl1) ;
   tsb->PageControl = PageControl1;
   tsb->Caption = "Äâà";

void __fastcall TForm1::PageControl1Change(TObject *Sender)
{
//здесь будем создавать новую вкладку
//нужно динамически добавлять компоненты
//первый шаг - добавить новый таб
if(PageControl1->TabIndex == i - 1)
  {
   TTabSheet *pPage = new TTabSheet(PageControl1);
   pPage->PageControl = PageControl1;
   pPage->Caption = AnsiString("+");
   PageControl1->ActivePage->Caption = AnsiString("Page") + IntToStr(i);
   Form1->StatusBar1->Panels->Items[1]->Text = pPage->Name;
 
   Panel[i] = new TPanel(PageControl1);
   Panel[i]->Parent = PageControl1->ActivePage;
   Panel[i]->Align = alTop;
 
   CppWebBrowser[i] = new TCppWebBrowser(PageControl1);
   CppWebBrowser[i]->TOleControl::Parent = PageControl1->ActivePage;
   CppWebBrowser[i]->Align = alClient;
   CppWebBrowser[i]->OnBeforeNavigate2 =  TCppWebBrowserBeforeNavigate2(&CppWebBrowser1BeforeNavigate2);
   CppWebBrowser[i]->OnProgressChange = CppWebBrowser1ProgressChange ;
   //и т.д.
    i++;
   
}

//##### ..... #####
//------------------------------------------------------------------------------
class   TForm1  : public    TForm
{
__published:    // IDE-managed Components
    TPageControl *PageControl1;
    TStatusBar *StatusBar1;
    TLabel *Label1;
    TLabel *Label2;
    void __fastcall PageControl1Change(TObject *Sender);
    void __fastcall PageControl1Changing(TObject *Sender, bool &AllowChange);
    void __fastcall PageControl1MouseActivate(TObject *Sender, TMouseButton Button,
          TShiftState Shift, int X, int Y, int HitTest, TMouseActivate &MouseActivate);
 
 
private:    // User declarations
    // сделать Страницу "Плюс".
    void __fastcall     Make_Plus_Page( void );
    // сделать текущую Страницу (из страницы "Плюс").
    void __fastcall     Make_Cur_Page( void );
    // удалить текущую Страницу.
    void __fastcall     Del_Cur_Page( void );
 
public:     // User declarations
    // конструктор.
    __fastcall  TForm1(TComponent* Owner);
 
};
//------------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//------------------------------------------------------------------------------

//##### ..... #####
// конструктор.
__fastcall  TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    // сделать Страницу "Плюс".
    Make_Plus_Page();
}
 
//##############################################################################
// .........
void __fastcall     TForm1::PageControl1Change(TObject *Sender)
{
    // если текущая Страница - "Плюсик" ...
    if ( PageControl1->ActivePage->Caption == "+" )
    {
        // сделать Страницу "Плюс".
        Make_Plus_Page();
 
        // сделать текущую Страницу (из страницы "Плюс").
        Make_Cur_Page();
    }
}
 
//(при каждой смене Активной Страницы.)
void __fastcall     TForm1::PageControl1Changing(TObject *Sender, bool &AllowChange)
{
    // .........
}
 
// .........
void __fastcall     TForm1::PageControl1MouseActivate(TObject*  Sender, TMouseButton    Button,
          TShiftState Shift, int X, int Y, int HitTest, TMouseActivate &MouseActivate)
{
    // если нажата - НЕ ПРАВАЯ Клавиша Мыши ...
    if ( Button != mbRight )
    {
        // если текущая Страница - "Плюсик" ...
        if ( PageControl1->ActivePage->Caption == "+" )
        {
            // сделать Страницу "Плюс".
            Make_Plus_Page();
 
            // сделать текущую Страницу (из страницы "Плюс").
            Make_Cur_Page();
        }
    }
    // если нажата - ПРАВАЯ Клавиша Мыши ...
    else
    {
        // если текущая Страница - НЕ "Плюсик" ...
        if ( PageControl1->ActivePage->Caption != "+" )
        {
            // удалить текущую Страницу.
            Del_Cur_Page();
        }
    }
}
 
//##############################################################################
// сделать текущую Страницу (из страницы "Плюс").
void __fastcall     TForm1::Make_Cur_Page( void )
{
    // поменять Название старой (текущей) Страницы.
    PageControl1->ActivePage->Caption = AnsiString( "Page" ) + IntToStr( PageControl1->TabIndex );
}
 
// сделать Страницу "Плюс".
void __fastcall     TForm1::Make_Plus_Page( void )
{
    // создать гновую Страницу.
    TTabSheet *new_Page = new TTabSheet( PageControl1 );
    // оформить новую Страницу.
    new_Page->PageControl = PageControl1;
    new_Page->Caption = AnsiString( "+" );
}
 
// удалить текущую Страницу.
void __fastcall     TForm1::Del_Cur_Page( void )
{
    // если Страницы, более высокие, чем текущая (удаляемая) - ЕСТЬ ...
    if ( PageControl1->TabIndex < PageControl1->PageCount-2 )   //(последняя Страница НЕ "Плюс".)
    {
        // по всем страницам более высоким, чем текущая (удаляемая).
        for ( int   n=PageControl1->PageCount-2; n>PageControl1->TabIndex; n-- )
        {
            // переименовать ее.
            PageControl1->Pages[n]->Caption = AnsiString( "Page" ) + IntToStr( n-1 );
        }
    }
    // удалить текущую Страницу.
    delete  PageControl1->ActivePage;
}

  // инструкции.
  Label1->Caption = "Щелчек левой кнопкой Мыши (по Странице ""+"") - Добавляет новую Страницу.";
  Label2->Caption = "Щелчек правой кнопкой Мыши (по Странице НЕ ""+"") - Удаляет данную Страницу.";