Создание класса на основе TImage

class MyImage : public TImage
{
public:
MyImage (int, int);
int status1;
int status2;
MyImage *Cell[10][10];
};

for (int ac1 = 0; ac1 < 10; ac1++) 
for (int ac2 = 0; ac2 < 10; ac2++)
{
Cell[ac1][ac2] = new MyImage(this);
Cell[ac1][ac2] ->Parent = Form1;
Cell[ac1][ac2] ->Picture->LoadFromFile("cell.bmp");
Cell[ac1][ac2] ->AutoSize=true;
Cell[ac1][ac2] ->Left=ac1*24;
Cell[ac1][ac2] ->Top=ac2*24;
}

class TMyImage: public TWinControl
{
    public:
        TMyImage(TComponent * AOwner);
        
        TImage * Cell[10][10];
};
//-----------------------------------------------------------
TMyImage::TMyImage(TComponent * AOwner): TWinControl(AOwner)
{
    Width = 240; Height = 240;
    
    for (int x = 0; x < 10; x++)
        for (int y = 0; y < 10; y++)
        {
            Cell[x][y] = new TImage(this);
            Cell[x][y]->Left = x * 24;
            Cell[x][y]->Top = y * 24;
            Cell[x][y]->Width = 24;
            Cell[x][y]->Height = 24;
            Cell[x][y]->Parent = this;
        }
}

TImage *Cell[10][10]; 
int c1[10][10]={0}; 
int c2[10][10]={0};

for (int x = 0; x < 10; x++) 
for (int y = 0; y < 10; y++)
{
Cell[x][y] = new TImage(this);
Cell[x][y] ->Parent = Form1;
Cell[x][y] ->Picture->LoadFromFile("cell.bmp");
Cell[x][y] ->AutoSize=true;
Cell[x][y] ->Left=x*24;
Cell[x][y] ->Top=y*24;
/// далее почти аналогично (с использованием рандома) создаются деревья
/// клетки на которых находятся деревья - меняют  c1[x][y] на значение 1
}

class TArea
{
};

class TArea: public TImage
{
    public:
        TImage(TComponent * AOwner);
};
//----
TArea::TArea(TComponent * AOwner): TImage(AOwner)
// инициализация.
{
}

class TArea: public TImage
{
    private:
        Graphics::TBitmap * FAreaTextures[2];
        // массив текстур для клеток.
        Graphics::TBitmap * FAreaObjets[2];
        // массив объектов.
    public:
        ~TArea(void);
};
//----
TArea::TArea(TComponent * AOwner): TImage(AOwner)
// дополняем инициализацию.
{
    FAreaTextures[0] = new Graphics::TBitmap();
    FAreaTextures[1] = new Graphics::TBitmap();
    // инициализация изображений текстур.
    FAreaTextures[0]->LoadFromFile("земля.bmp");
    FAreaTextures[1]->LoadFromFile("вода.bmp");
    // загрузка изображений текстур.
    
    FAreaObjects[0] = new Graphics::TBitmap();
    FAreaObjects[1] = new Graphics::TBitmap();
    // инициализация изображений объектов.
    FAreaObjects[0]->LoadFromFile("дерево.bmp");
    FAreaObjects[1]->LoadFromFile("гордый_овец.bmp");
    // загрузка изображений текстур.
}
//----
TArea::~TArea(void)
// деструкторизация (то, что будет происходить при освобождении памяти объекта).
{
    delete FAreaTextures[0];
    delete FAreaTextures[1];
    delete FAreaObjects[0];
    delete FAreaObjects[1];
    // освобождение памяти всех изображений.
}

struct TAreaCell
{
    int Background;
    // фон клетки.
    int Object;
    // объект, который находится в клетке.
    
    TAreaCell(int ABackground = 1)
    // инициализация клетки с заданым фоном (по умолчанию вода).
    {
        Background = ABackground;
        // фон клетки.
        Object = -1;
        // объекта нет.
    }
};

TArea::TArea(TComponent * AOwner): public TImage(AOwner)
{
    // ...
    
    for (int x = 0; x < 10; x++)
        for (int y = 0; y < 10; y++)
            Cell[x][y] = new TAreaCell();
    // инициализация структуры сетки.
}
//-----
TArea::~TArea(void)
{
    // ...
    
    for (int x = 0; x < 10; x++)
        for (int y = 0; y < 10; y++)
            delete Cell[x][y];
    // освобождение памяти.
}

void TArea::TArea(TComponent * AOwner): TImage(AOwner)
{
    // ...
    
    Picture->Bitmap = new Graphics::TBitmap;
    // для BCB6 и везде, где изображение не создается по дефолту.
    Picture->Bitmap->SetSize(240,240);
    // установка размера изображения,
    // опять же для BCB6 Picture->Bitmap->Width = 240; Picture->Bitmap->Height = 240;
}
//-----
void TArea::DrawArea(void) const
// метод прорисовки.
{
    for (int x = 0; x < 10; x++)
        for (int y = 0; y < 10; y++)
        {
            Picture->Bitmap->Canvas->Draw(x*24,y*24,FAreaTextures[Cell[x][y]->Background]);
            /*
                Напоминаю, что FAreaTextures - массив, хранящий в себе
                фоновые изображения. В качестве индекса массива,
                испоьзуется значение клетки, отвечающей за ее фон:
                
                Cell[x][y]->Background
            */
            
            if (Cell[x][y]->Object != -1)
            // если объект существует.
                Picture->Bitmap->Canvas->Draw(x*24,y*24,FAreaObjects[Cell[x][y]->Object];
                // произвести его прорисовку.
        }
}