Работа с динамически созданными объекта на PageControl

void __fastcall TForm1::CreateNewClick(TObject *Sender)
{
TTabSheet *NewTabSheet = new TTabSheet(PageControl1);
NewTabSheet->PageControl = PageControl1;
NewTabSheet->Caption = "new.script";
 
TRichEdit *RE1 = new TRichEdit(NewTabSheet);
RE1->Parent = NewTabSheet;
RE1->Height = NewTabSheet->Height;
RE1->Width = NewTabSheet->Width;
}

// в обработчике формы OnCreate
TList *ListRichEdits = new TList();
 
void __fastcall TForm1::CreateNewClick(TObject *Sender)
{
TTabSheet *NewTabSheet = new TTabSheet(PageControl1);
NewTabSheet->PageControl = PageControl1;
NewTabSheet->Caption = "new.script";
 
TRichEdit *RE1 = new TRichEdit(NewTabSheet);
RE1->Parent = NewTabSheet;
RE1->Height = NewTabSheet->Height;
RE1->Width = NewTabSheet->Width;
 
ListRichEdits->Add(RE1);
}
 
// i - индекс от 0 до ListRichEdits->Count-1
TRichEdit *RE1 = (TRichEdit *)ListRichEdits->Items[i];
 
// не забыть удалить ListRichEdits

TRichEdit *RE1 = new TRichEdit(NewTabSheet);
static int iUnique = 0;
// имя не должно повторяться, и не должно содержать пробелов и спец.символов
RE1->Name = "RE_" + AnsiString(RE1);
RE1->Parent = NewTabSheet;
RE1->Height = NewTabSheet->Height;
RE1->Width = NewTabSheet->Width;
 
// добавляем этот компонент в список компонентов формы, чтобы можно было найти
this->InsertComponent(RE1);
 
// теперь мы можем в любое время найти этот объект по имени
TComponent *FComp = this->FindComponent("RE_0");
if (FComp) {
      TRichEdit *FRichEdit = dynamic_cast<TRichEdit *>(FComp);
      if (FRichEdit) {
                 // работаем с компонентом
      }
}

TControl *ControlRich = PageControl1->ActivePage->Controls[0];
if (ControlRich) {
      TRichEdit *FRichEdit = dynamic_cast<TRichEdit *>(ControlRich);
      if (FRichEdit) {
                 // работаем с компонентом
      }
}

TRichEdit *RichEdit;
TList *ListRichEdits = new TList();
 
...
 
void __fastcall TForm1::PageControl1Change(TObject *Sender)
{
RichEdit = (TRichEdit *)ListRichEdits->Items[PageControl1->ActivePageIndex];
}

Form1->RichEdit...