Динамический массив форм

TForm * FormArray[10];
for (int i=0;i<10;i++) {
     FormArray[i] = new TForm(Application);
     FormArray[i]->Left = i * 10;
     FormArray[i]->Show();
}
 
Sleep(3000);
 
for (int i=0;i<10;i++) {
     delete FormArray[i];
     FormArray[i] = 0;
}

void __fastcall TMainForm::FormClose(TObject *Sender, TCloseAction &Action)
  ini->EraseSection("Windows");
  for (int ii=0; ii<MDIChildCount; ii++)
  {
    ini->WriteString ( "Windows", ii, MDIChildren[ii]->ClassName() );
  }
}

void __fastcall TMainForm::FormCreate(TObject *Sender)
{
  TStringList *Section = new TStringList;
  ini->ReadSection("Windows", Section);
 
  for (int ii=0; ii < Section->Count; ii++)
  {
    ???????????????????????????????????;
  }
}

#include <memory>
#include <IniFiles.hpp>
 
void __fastcall TMainForm::CreateMDIChild(const String &sName) {
    //--- create a new MDI child window ----
    TMDIChild *Child = new TMDIChild(Application);
 
    if (FileExists(sName)) {
        Child->Memo1->Lines->LoadFromFile(sName);
        Child->Caption = sName;
    }
    else {
        Child->Caption = "File <" + sName + "> is not found!";
    }
}
 
//---------------------------------------------------------------------------
void __fastcall TMainForm::SaveMDILayout() {
    std::auto_ptr<TIniFile>AIniFile(new TIniFile("test.ini"));
    for (int i = 0; i < this->MDIChildCount; i++) {
        AIniFile->WriteString("Windows", i, this->MDIChildren[i]->Caption);
    }
}
 
//---------------------------------------------------------------------------
void __fastcall TMainForm::LoadMDILayout() {
    // удаление всех открытых окон
    while (this->MDIChildCount) {
        this->MDIChildren[0]->Free();
    }
 
    std::auto_ptr<TStringList>AWindowsStrings(new TStringList());
 
    std::auto_ptr<TIniFile>AIniFile(new TIniFile("test.ini"));
    AIniFile->ReadSection("Windows", AWindowsStrings.get());
 
    for (int i = 0; i < AWindowsStrings->Count; i++) {
        CreateMDIChild(AIniFile->ReadString("Windows", AWindowsStrings->Strings[i], "Error value"));
    }
}

TForm *MyForm[5];
int i=0;
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(i>4){
AnsiString msg = "Нельзя создавать так много заметок";
Application->MessageBox(msg.c_str(),
Application->Title.c_str(),
MB_OK | MB_ICONINFORMATION);
} else{
MyForm[i] = new TForm(this);
MyForm[i]->Name = "Stick" + IntToStr(i + 1);
MyForm[i]->Caption = "Заметка" + IntToStr(i + 1);
MyForm[i]->Show();
i++;  }
 
//delete MyForm[i];
 
}

MyForm[2]->Close();
delete MyForm[2];
for(size_t i = 2; i < 5; MyForm[i] = ( i == 4 ? NULL: MyForm[i + 1] ) );

// ...
MyForm[i] = new TForm(this);
MyForm[i]->Name = "Stick" + IntToStr(i + 1);
MyForm[i]->Caption = "Заметка" + IntToStr(i + 1);
MyForm[i]->Show();
MyForm[i]->OnClose = &dyn_form_close;
// ...
void __fastcall TForm1::dyn_form_close(TObject *Sender, TCloseAction &Action){
  Action = caFree;
  TForm *f = dynamic_cast<TForm *>(Sender);
  for(size_t i = 0, b = 0; i < 5; MyForm[i] == f ? ++b: 0, 
            b > 0 ? MyForm[i] = ( i == 4 ? NULL: MyForm[i + 1] ): f, ++i );
}