Динамическое создание обьектов и их обработка (XE2)

//---------------------------------------------------------------------------
 
#include <fmx.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.fmx"
TForm1 *Form1;
TRectangle *Re[255];
int k=0;
TRectangle *Fr;
 
void __fastcall MyClick(TObject *Sender);
 
void ReCreate (int X, int Y) {
   Re[k] = new TRectangle(Form1);
   Re[k]->Width = 10;
   Re[k]->Height = 10;
   Re[k]->Position->X = X;
   Re[k]->Position->Y = Y;
   Re[k]->StyleName = 8;
   Re[k]->Name = "Re"+IntToStr(k);
   Re[k]->OnMouseMove = MyClick;
  // Re[k]->OnMouseMove
   Re[k]->Parent = Form1;
   k++;
}
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
 int i=0,j=0;
 
 for (i = 0; i < 49; i++) {
    for (j = 0; j < 20; j++) {
        ReCreate(20+i*11, 70+j*11);
    }
 
 }
}
 
 
 
//---------------------------------------------------------------------------
void __fastcall TForm1::Rectangle1MouseMove(TObject *Sender, TShiftState Shift, float X,
          float Y)
{
    TRectangle* ob;
    //tag = ob->Tag;
    ob->Fill->Color = 525;
}
//---------------------------------------------------------------------------

Re[k]->OnMouseMove = Rectangle1MouseMove;

void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
   TImage* Image = (TImage*)Sender;
   // или TImage* Image = dynamic_cast<TImage*>(Sender);
   Edit1->Text = Image->Name;
   // получает имя изображения в текстовое поле.
   Image3->Picture->Assign(Image->Picture);
   // заменяет изображение в указанном Image.
}