Использование одной функции для многих одинаковых элементов на форме

//---------------------------------------------------------------------------
#define IMAGES_COUNT    5
TImage* Images[IMAGES_COUNT];
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner):TForm(Owner)
{
     Images[0]=Image1;
     Images[1]=Image2;
     Images[2]=Image3;
     Images[3]=Image4;
     Images[4]=Image5;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BRotateAllClick(TObject *Sender)
{
     int i;
 
     for(i=0;i<IMAGES_COUNT;i++)
          Rotate90(Images[i]);
}
//---------------------------------------------------------------------------

for(int i = 0; i < ControlCount; i++)
 if(Controls[i]->ClassNameIs("TImage")) Rotate90(dynamic_cast<TImage*>(Controls[i]));

void __fastcall Rotate90(TImage *Img)
{
...
}

void __fastcall TForm1::Image1Click(TObject *Sender)
{
   Rotate90(dynamic_cast<TImage*>(Sender));
}

 int xo = ((TImage*)Sender)->Width,
xn =((TImage*)Sender)-> Height;
 
TColor **mat = new TColor *[xn];
for (int i = 0; i < xo; i++) {
  mat[i]=new TColor [xo];
}
for (int i = 0; i < xn; i++) {
for (int j = 0; j < xo; j++){
  mat[i][j]=((TImage*)Sender)->Canvas->Pixels[i][j];
}
}
for (int i = 0; i < xn; i++) {
for (int j = 0; j < xo; j++) {
((TImage*)Sender)->Canvas->Pixels[i][j]=mat[j][xo-i];
}
}

void __fastcall Rotate90(TImage *Img)
{
   int xo = Img->Width,
   xn = Img->Height;
   TColor **mat = new TColor *[xn];
   for (int i = 0; i < xo; i++) {
    mat[i]=new TColor [xo];
   }
   for (int i = 0; i < xn; i++) {
    for (int j = 0; j < xo; j++) {
      mat[i][j]=Img->Canvas->Pixels[i][j];
    }
   }
   for (int i = 0; i < xn; i++) {
    for (int j = 0; j < xo; j++) {
     Img->Canvas->Pixels[i][j] = mat[j][xo-i];
    }
   }
}