Manejo de Objetos TImage en Arreglo o Similar

[[escafandra]]

//---------------------------------------------------------------------------
void __fastcall TForm1::Imagelick(TObject *Sender)
{
  Beep();
  Label->Caption = ((TImage*)Sender)->Name;
}


void __fastcall TForm1::Button1Click(TObject *Sender)
{
   TImage* ImageM[5][5];

   for(int i=0;i<5;i++){
      for(int j=0;j<5;j++){
          ImageM[i][j] = new TImage(this);
          ImageM[i][j]->Parent = Form1;
          ImageM[i][j]->OnClick = Imagelick;
          ImageM[i][j]->SetBounds(10*i,10*j,10,10);
          ImageM[i][j]->Picture->LoadFromFile("img.jpg");
          ImageM[i][j]->Name = "ImageM"+IntToStr(i)+IntToStr(j);
      }
   }
}
//---------------------------------------------------------------------------

Saludos.