//-----------------------------------------------------------------
// Unit1.h
//-----------------------------------------------------------------
class TForm1 : public TForm
{
__published:
TButton *Button1;
TButton *Button2;
void __fastcall Button1Click(TObject *Sender);
void __fastcall Button2Click(TObject *Sender);
void __fastcall FormCreate(TObject *Sender);
void __fastcall FormClose(TObject *Sender, TCloseAction &Action);
private:
public:
TList* mlstFrm;
__fastcall TForm1(TComponent* Owner);
};

//-----------------------------------------------------------------
// Unit1.cpp
//-----------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
mlstFrm = new TList;
}

//-----------------------------------------------------------------

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
delete mlstFrm;
mlstFrm = NULL;
}
//-----------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{

TForm2 *frm = new TForm2(this);
mlstFrm->Add(frm);
frm->Show();
}

//-----------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{

TForm2 *frm;

for (int i=0;iCount;i ){
frm = (TForm2*)mlstFrm->Items[i];
delete frm;
frm = NULL;
}
mlstFrm->Clear();
}
//-----------------------------------------------------------------

// Unit2.cpp
//-----------------------------------------------------------------

void __fastcall TForm2::FormClose(TObject *Sender, TCloseAction &Action)
{
TForm1 *frm = (TForm1*)Owner;

frm->mlstFrm->Delete(frm->mlstFrm->IndexOf(this));
}
//-----------------------------------------------------------------