Управление вкладками и доступ к их содержимому

namespace SppedButton_SelectIndex
{
    class TsSpeedButton : public Sspeedbutton::TsSpeedButton
    {
    private:
            TObject *FNASLEDIE,*FNASLEDIE1,*FNASLEDIE2,.....;
    public:
        __fastcall virtual TsSpeedButton(System::Classes::TComponent* AOwner)
            : Sspeedbutton::TsSpeedButton(AOwner)
        {
        }
        __property TObject *NASLEDIE  = { read=FNASLEDIE, write=FNASLEDIE};
        __property TObject *NASLEDIE1 = { read=FNASLEDIE1, write=FNASLEDIE1};
        __property TObject *NASLEDIE2 = { read=FNASLEDIE2, write=FNASLEDIE2};
               ....
    };
}
#define TsSpeedButton SppedButton_SelectIndex::TsSpeedButton

class TPCTab : public TsTabSheet
{
public:
    TsLabel *lblComputerName;
    TsEdit *edComputerName;
 
    __fastcall virtual TPCTab(Classes::TComponent* AOwner) : TsTabSheet(AOwner)
    {
        lblComputerName = new TsLabel(this);
        lblComputerName->Parent = this;
 
        lblComputerName->Top = 20;
        lblComputerName->Left = 20;
        lblComputerName->Caption = "Computer name";
 
        edComputerName = new TsEdit(this);
        edComputerName->Parent = this;
 
        edComputerName->Top = 50;
        edComputerName->Left = 20;
        edComputerName->Text = "";
    }
};
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sButton1Click(TObject *Sender) // добавляем новую вкладку
{
    TPCTab *tab = new TPCTab(sPageControl1);
    tab->Caption = "New Tab Sheet";
    tab->PageControl = sPageControl1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::sButton2Click(TObject *Sender) // удаляем текущую вкладку
{
    delete sPageControl1->Pages[sPageControl1->ActivePageIndex];
}