Деление клеток

#include <memory>
// ---------------------------------------------------------------------------
TImage *CreateCopyOfImage(TImage *ImageToCopy, const int &iNewPosLeft,
    const int &iNewPosTop) {
    TImage *ImageDyn = new TImage(Application);
    std::auto_ptr<TMemoryStream>MyMemStream(new TMemoryStream);
    MyMemStream->WriteComponent(ImageToCopy);
    MyMemStream->Position = 0;
    MyMemStream->ReadComponent(ImageDyn);
    ImageDyn->Parent = ImageToCopy->Parent;
    static int iUnique = 1;
    ImageDyn->Name = "PictureCreated" + AnsiString(iUnique++);
    ImageDyn->Left = iNewPosLeft;
    ImageDyn->Top = iNewPosTop;
    return ImageDyn;
}
 
// ---------------------------------------------------------------------------
void __fastcall TForm1::Panel1Click(TObject *Sender) {
    static int iOffsetLeft = 0;
    static int iOffsetTop = 0;
    CreateCopyOfImage(Image1, iOffsetLeft += 50, iOffsetTop += 50);
}
// ---------------------------------------------------------------------------

TForm1 *Form1;
Graphics::TBitmap*Boll;
randomize();
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
Boll=new Graphics::TBitmap();
Boll->LoadFromFile("Boll.bmp");//загружаем картинку
Boll->Transparent=true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
int x=random(Image1->Width);
int y=random(Image1->Height);
Image1->Canvas->Draw(x,y,Boll);//копируем рисунок на Image
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
delete Boll;//очищаем память
Boll=NULL;        
}