Дочерние формы (не MDI) и STL::List

void __fastcall TfmSendFile::FormCreate(TObject *Sender)
{
    sbtDel = new TsButton(fmSendFile);
    sbtDel->OnClick = sbtDelClick;
 
    Number = 0;
    vLabel.push_back(new TsLabel(fmSendFile));
...

//===========================================================================
#include <vcl.h>
#include <list.h>
#pragma hdrstop
#include "Unit1.h"
 
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
    list<TForm1*> myList; 
 
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    frm_2 = NULL; //(TForm*) - указатель на дочернюю форму
    ed = NULL;    //(TEdit*) - указатель на Edit этой формы
}
//===========================================================================
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   
//    if ( frm_2 == NULL )
    {
    frm_2 = new TForm( this );            
//  frm_2->Parent = this;
    frm_2->Top = (ClientHeight - frm_2->Height)*0.50; 
    frm_2->Left = (ClientWidth - frm_2->Width)*0.50;
    
//  frm_2->ActiveControl = NULL;
    ::SetParent( frm_2->Handle, Handle ); 
    frm_2->OnClose = &Form2Close;         
    frm_2->Show();                       
 
        ed = new TEdit( frm_2 );           
    ed->Parent = frm_2;
        ed->Top = 20;                         
    ed->Left = 30;
    ed->Font->Style = TFontStyles() << fsBold;    
    }
//--------------------------
    myList.push_back(new TForm1(frm_2)); // <--- вот это интересует в сравнении с темой про компоненты
//--------------------------
}
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Form2Close(TObject *Sender, TCloseAction &Action)
{
    if (ed!=NULL)
        delete ed;     
    ed = NULL;     
 
    if (frm_2!=NULL)   
        delete frm_2;
    frm_2 = NULL;     
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::WndProc(TMessage &Message)
{
    static bool isAppActive = true;
 
    switch(Message.Msg)
    {
        case WM_NCACTIVATE:
            Message.WParam = isAppActive;
            Message.Result = DefWindowProc(this->Handle, Message.Msg, Message.WParam, Message.LParam);
            break;
 
        case WM_ACTIVATEAPP:
            isAppActive = (Message.WParam != 0);
            LPARAM lp = 0L;
            this->Perform(WM_NCACTIVATE, 0, lp);
            Message.Result = 0;
            return;
    }
    TForm::WndProc(Message); // interited
}
//---------------------------------------------------------------------------

//===========================================================================
#ifndef     Unit1H
#define     Unit1H
 
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
 
//---------------------------------------------------------------------------
class   TForm1 : public TForm
{
__published:    // IDE-managed Components
    TButton *Button1;
    TEdit *Edit1;
    void __fastcall Button1Click(TObject *Sender);
 
private:    // User declarations
    TForm* frm_2;    
    void __fastcall TForm1::Form2Close(TObject *Sender, TCloseAction &Action);  
    TEdit* ed;    
 
protected:
        void __fastcall WndProc(TMessage &Message);
 
public:     // User declarations
    __fastcall  TForm1(TComponent* Owner); 
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif  //(Unit1H)
//===========================================================================

//===========================================================================
#ifndef     Unit1H
#define     Unit1H
 
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ExtCtrls.hpp>
 
//---------------------------------------------------------------------------
class   TForm1 : public TForm
{
__published:    // IDE-managed Components
    TPanel *Panel1;
    TButton *Button2;
    TButton *Button3;
        TMemo *Memo1;
    void __fastcall Button1Click(TObject *Sender);
        void __fastcall Button2Click(TObject *Sender);
        void __fastcall Button3Click(TObject *Sender);
        void __fastcall FormCreate(TObject *Sender);
 
private:    // User declarations
    void __fastcall TForm1::Form2Close(TObject *Sender, TCloseAction &Action);  
        void __fastcall TForm1::EditChange(TObject *Sender);        
    TEdit* ed;    
        TComponentList *lst;
        TComponentList *lst_ed;
protected:
        void __fastcall WndProc(TMessage &Message); 
 
public:     // User declarations
    __fastcall  TForm1(TComponent* Owner); 
};
//---------------------------------------------------------------------------
 
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif  //(Unit1H)
//===========================================================================

//===========================================================================
#include <vcl.h>
#include <list.h>
#pragma hdrstop
#include "Unit1.h"
 
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
    int i=0;
// конструктор формы
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    ed = NULL;    //(TEdit*) - указатель на дин. Edit формы-дочки
    lst=NULL; //nullptr для Embarcadero RAD 10; 
}
//===========================================================================
 
//обработчик закрытия дочерних форм
void __fastcall TForm1::Form2Close(TObject *Sender, TCloseAction &Action)
{
    Action = caFree;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::WndProc(TMessage &Message)
{
    static bool isAppActive = true;
 
    switch(Message.Msg)
    {
        case WM_NCACTIVATE:
            Message.WParam = isAppActive;
            Message.Result = DefWindowProc(this->Handle, Message.Msg, Message.WParam, Message.LParam);
            break;
 
        case WM_ACTIVATEAPP:
            isAppActive = (Message.WParam != 0);
            LPARAM lp = 0L;
            this->Perform(WM_NCACTIVATE, 0, lp);
            Message.Result = 0;
            return;
    }
    TForm::WndProc(Message); 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
   lst=new TComponentList();
   lst_ed=new TComponentList();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    i++; //для нумерации в Caption формы-дочки
    TForm *frm = new TForm(this);
    frm->Top = (ClientHeight - frm->Height)*0.50; 
    frm->Left = (ClientWidth - frm->Width)*0.50;
 
    TBorderIcons BI;    //для визуального удаления кнопок сворачивания/разворач. окна
    BI.Clear();
    BI = BI << biSystemMenu;
    frm->BorderIcons = BI;
 
    ::SetParent(frm->Handle, Handle);  
    frm->Show();
    frm->Caption = "my"+IntToStr(i);
    frm->OnClose = &Form2Close;
    lst->Add(frm);
 
    TEdit *ed = new TEdit(frm);              
    ed->Parent = frm;
    ed->OnChange = &EditChange;
    ed->Top = 20;                         
    ed->Left = 30;
    ed->Font->Style = TFontStyles() << fsBold;    
    lst_ed->Add(ed);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button3Click(TObject *Sender)
{
    Memo1->Clear();
    for(int i = 0; i <lst->Count; i++)
    {
        Memo1->Lines->Add(static_cast<TForm*>(lst->Items[i])->Caption);
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::EditChange(TObject *Sender)
{
    static_cast<TForm*>(lst->Items[???])->Caption=static_cast<TEdit*>(lst_ed->Items[???])->Text;  // <--- тут проблема
}

class   TForm1 : public TForm
{
__published:
        ...
        void __fastcall FormDestroy(TObject *Sender); 
        ...
//unit1.cpp
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
    delete lst;
    delete lst_ed;
}

~Form1()
{
    delete lst;
    delete lst_ed;
}