Código:
//---------------------------------------------------------------------------
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.