Обновление вкладов в PageControl

void __fastcall TForm1::PageControl1Change(TObject *Sender)
{
  switch (PageControl1->ActivePageIndex) {
    case 0:
      ShowMessage("It's the first page.");
      break;
    case 1:
      ShowMessage("This is the second page.");
      break;
  default:
    ShowMessage("This is the " + IntToStr(PageControl1->ActivePageIndex + 1) + " tab.");
  }
}

PageControl1->PageCount

for (int i = 0; i < PageControl1->PageCount; i++) {
  PageControl1->Pages[i]-> // действия, которые нужны вам...
}

void __fastcall TMainForm::MainWindowChange(TObject *Sender)
{
        for (int i = 0; i < MainWindow->PageCount; i++)
                if (MainWindow->ActivePageIndex != -1)
                        MainWindow->Pages[i]->Caption = IntToStr(12);
}

MainForm->Label2->Caption = MainWindow->ActivePage->Caption;

PageControl1->Pages[PageControl1->ActivePageIndex]->Hint = PageControl1->Pages[PageControl1->ActivePageIndex]->Caption;
PageControl1->Pages[PageControl1->ActivePageIndex]->Caption = "Ура. Меня открыли!";

void __fastcall TForm1::PageControl1Change(TObject *Sender)
{
  for (int i = 0; i < PageControl1->PageCount; i++) {
    if (i == PageControl1->ActivePageIndex) {
      PageControl1->Pages[i]->Hint = PageControl1->Pages[i]->Caption;
      PageControl1->Pages[i]->Caption = "Ура. Меня открыли!";
    } else {
      if (PageControl1->Pages[i]->Hint.Length() > 0) {
        PageControl1->Pages[i]->Caption = PageControl1->Pages[i]->Hint;
      }
    }
  }
}