OnClick

int a=0;
void __fastcall TForm1::Image1Click(TObject *Sender)
{
TImage *Image = new TImage(Form1);
Image->Parent = Form1;
Image->Picture->LoadFromFile("file");
Image->OnClick = OnClick; {Image->Picture->LoadFromFile("file2");}
Image->Top =a;a=a+105;
//Как сделать чтобы у каждой новой Image был свой клик
//и в каждом клике создать Image->Picture->LoadFromFile("file2");
}

void __fastcall TForm1::ImageClick(TObject* Sender){
((TImege*)Sender)->Picture->LoadFromFile("File.bmp");
}

int a=0,b=0;
TImage *Image[1000000];
void __fastcall TForm1::ImaClick(TObject* Sender)
{
Image[b] =new TImage(Form1);
Image[b]->Parent =Form1;
Image[b]->Left = a;a=a+105;
if(b == 0){Image[b]->OnClick = Image0Click;}
if(b == 1){Image[b]->OnClick = Image1Click;}
if(b == 2){Image[b]->OnClick = Image2Click;}
if(b == 3){Image[b]->OnClick = Image3Click;}
//...и так до бесконечности
//if(b == "Безконечности"){Image->OnClick = Image"Безконечности"Click;}
Image[b]->Picture->LoadFromFile("foto\\1.bmp");
b++;
}
 
void __fastcall TForm1::Image0Click(TObject* Sender)
{
Image[0]->Picture->LoadFromFile("foto\\2.bmp");
}
 
void __fastcall TForm1::Image1Click(TObject* Sender)
{
Image[1]->Picture->LoadFromFile("foto\\2.bmp");
}
 
void __fastcall TForm1::Image2Click(TObject* Sender)
{
Image[2]->Picture->LoadFromFile("foto\\2.bmp");
}
 
void __fastcall TForm1::Image3Click(TObject* Sender)
{
Image[3]->Picture->LoadFromFile("foto\\2.bmp");
}
//... и так до бесконечности
void __fastcall TForm1::Image1000000Click(TObject* Sender)
{
Image[1000000]->Picture->LoadFromFile("foto\\2.bmp");
}
/*
Меня интересует вопрос вотакой способ один или можно както подругому написать по проще.
То очень много текста полючается
*/

void __fastcall TForm1::Image1Click(TObject* Sender)
{
  TImage*img = dynamic_cast<TImage*>(Sender);
  if (img) img->Picture->LoadFromFile("foto\\2.bmp");
}

void __fastcall TForm1::Image1Click(TObject* Sender)
{
  TImage*img = dynamic_cast<TImage*>(Sender);
  if (img) img->Picture->LoadFromFile("foto\\2.bmp");
 if (img->Tag==1) //тут обработка щелчка по фотке с тегом "1"
}

void __fastcall TForm1::Image1Click(TObject* Sender)
{
TImage *m = ((TImage*)Sender);
ShowMessage(m->Name);//вот те и имя.
}

ShowMessage(((TImage*)Sender)->Name);