Общий обработчик для множества объектов TShape

TShape *my_shape[255];  // фигуры для отображения на плане
//---------------------------------------------------------------------------
__fastcall TMainForm::TMainForm(TComponent* Owner)
    : TForm(Owner)
{
        for (i = 0; i < 255; i++) {
        my_shape[i] = new TShape(this);
    }
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::Button4Click(TObject *Sender) // расстановка фигур на рисунке
{
    my_shape[0]->Parent = pnImagePlan;
    my_shape[0]->Shape = 4;
    my_shape[0]->Left = X;
    my_shape[0]->Top = Y;
    my_shape[0]->Width = 16;
    my_shape[0]->Height = 16;
    my_shape[0]->Brush->Color = clGreen;
    my_shape[0]->DragMode = dmAutomatic;
 
    my_shape[0]->OnEndDrag = ShapeEndDrag;
 
.....  // и так далее
}
//---------------------------------------------------------------------------
void __fastcall TMainForm::ShapeEndDrag(TObject *Sender, TObject *Target, int X, int Y)  // конец перетаскивания фигуры
{
 
    if (X>0 && X<imPlan->Width && Y>0 && Y<imPlan->Height) {
        // тут нужно указать какую именно фигуры двигать, но не могу понять как(
                //my_shape[0]->Left = X;
        //my_shape[0]->Top = Y;
    }
}

    TShape *my_shape = (TShape * )Sender;
 
    if (X>0 && X<imPlan->Width && Y>0 && Y<imPlan->Height) {
        my_shape->Left = X;
        my_shape->Top = Y;
    }