Автоматическое освобождение памяти

//---------------------------------------------------------------------------
 
#ifndef FormTestDeleteListH
#define FormTestDeleteListH
//---------------------------------------------------------------------------
#include <System.Classes.hpp>
#include <Vcl.Controls.hpp>
#include <Vcl.StdCtrls.hpp>
#include <Vcl.Forms.hpp>
//---------------------------------------------------------------------------
 
class MyTestClass
{
private:
    int a;
public:
    int b;
    int *c;  // Динамический массив
    MyTestClass();
    ~MyTestClass();
};
 
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    void __fastcall FormCreate(TObject *Sender);
    void __fastcall FormDestroy(TObject *Sender);
private:    // User declarations
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
 
    TList* MyList;
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
 
#include "FormTestDeleteList.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
 
MyTestClass::MyTestClass()
{
    a = 1;     b = 2;
    c = new int[26214400];
    for (int i = 0; i < 26214400; i++)
    {
        c[i] = i*2;
    }
}
 
MyTestClass::~MyTestClass()
{
    ShowMessage(L"Уничтожение MyTestClass с b = " + String(b));
}
//---------------------------------------------------------------------------
 
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    MyList = new TList;
 
    for (int i = 0; i < 10; i++)
    {
        MyTestClass *NewTestClass = new MyTestClass;
        NewTestClass->b = i*10000 + Random(100);
        MyList->Add(NewTestClass);
    }
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
//      Если оставить этот блок закомментированным, то
//      деструкторы объектов класса MyTestClass  НЕ вызываются
//
//      for (int i = 0; i < 10; i++)
//      {
//          MyTestClass *NewTestClass = (MyTestClass*)MyList->Items[i];
//          delete NewTestClass;
//      }
 
    delete MyList;
}
//---------------------------------------------------------------------------