PageControl - как обратиться к активной вкладке

void __fastcall TForm1::BitBtn1Click(TObject *Sender) {
    // создание новой вкладки
    TTabSheet* TabSheet1 = new TTabSheet(PageControl1);
    TabSheet1->PageControl = PageControl1;
    TabSheet1->Caption = i;
 
    Memo1->Lines->Add(TabSheet1->TabIndex);
    TCppWebBrowser * CppWebBrowser1 = new TCppWebBrowser(TabSheet1);
    CppWebBrowser1->Align = alClient;
    // откроем новую вкладку
    PageControl1->ActivePage = TabSheet1;
    i++;
}

TTabSheet *tabsh_arr[100];
TCppWebBrowser *cpwb_arr[100];
 
void __fastcall TForm1::BitBtn1Click( TObject *Sender ) 
{
    static int i = 0;
 
    // создание новой вкладки
    tabsh_arr[i] = new TTabSheet( PageControl1 );
    tabsh_arr[i]->PageControl = PageControl1;
    tabsh_arr[i]->Caption = i; 
    Memo1->Lines->Add( tabsh_arr[i]->TabIndex );
 
    cpwb_arr[i] = new TCppWebBrowser( tabsh_arr[i] );
    cpwb_arr[i]->Align = alClient;
 
    // откроем новую вкладку
    PageControl1->ActivePage = tabsh_arr[i];
 
    i++;
}

cpwb_arr[PageControl1->ActivePageIndex]->Navigate(StringToOleStr(ComboBox1->Text));