Изменение положения и размера N-го количества компонентов

namespace MyPanel
{
    int viX0 = 0, viY0 = 0;
    bool fMove = false;
 
    class TPanel : public Extctrls::TPanel
    {
    protected:
        DYNAMIC void __fastcall MouseDown(System::Uitypes::TMouseButton Button,
            System::Classes::TShiftState Shift, int X, int Y)
        {
            if (Button != mbLeft)
                return;
            // Запомнить где
            viX0 = X;
            viY0 = Y;
            // Будем тащить
            fMove = true;
            // Переместить на передний план эту половинку
            BringToFront();
        }
 
        DYNAMIC void __fastcall MouseMove(System::Classes::TShiftState Shift,
            int X, int Y)
        {
            if (fMove)
            {
                // Установить новые границы для того на кого нажали
 
                SetBounds(Left + X - viX0, Top + Y - viY0, Width, Height);
            }
        }
 
        DYNAMIC void __fastcall MouseUp(System::Uitypes::TMouseButton Button,
            System::Classes::TShiftState Shift, int X, int Y)
        {
            fMove = false;
        }
 
        DYNAMIC void __fastcall DblClick(void)
        {
            ActivePanel = this;
            SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) | WS_SIZEBOX);
            Width += 1;
            Width -= 1;
        }
 
    public:
        static TPanel *ActivePanel;
        __fastcall virtual TPanel(Classes::TComponent* AOwner)
            : Extctrls::TPanel(AOwner)
        {
        }
    };
    TPanel *TPanel::ActivePanel = 0;
}
#define TPanel MyPanel::TPanel

void __fastcall TForm2::FormClick(TObject *Sender)
{
    SetWindowLong(TPanel::ActivePanel->Handle,GWL_STYLE,
        GetWindowLong(TPanel::ActivePanel->Handle, GWL_STYLE) & ~WS_SIZEBOX);
    TPanel::ActivePanel->Width++;
    TPanel::ActivePanel->Width--;
}

namespace MyPanel
{
    int viX0 = 0, viY0 = 0;
    bool fMove = false;
 
    class TPanel : public Extctrls::TPanel
    {
    protected:
        DYNAMIC void __fastcall MouseDown(Controls::TMouseButton Button,
            Classes::TShiftState Shift, int X, int Y)
        {
            if (!cbxAllowMove->Checked || Button != mbLeft) // запрещено перемещение - выходим
                return;
            // Запомнить где
            viX0 = X;
            viY0 = Y;
            // Будем тащить
            fMove = true;
            // Переместить на передний план эту половинку
            BringToFront();
        }
 
        DYNAMIC void __fastcall MouseMove(Classes::TShiftState Shift,
            int X, int Y)
        {
            if (fMove)
            {
                // Установить новые границы для того на кого нажали
 
                SetBounds(Left + X - viX0, Top + Y - viY0, Width, Height);
            }
        }
 
        DYNAMIC void __fastcall MouseUp(Controls::TMouseButton Button,
            TShiftState Shift, int X, int Y)
        {
            fMove = false;
        }
 
        DYNAMIC void __fastcall DblClick(void)
        {
            if(cbxAllowResize->Checked) // только если разрешили 
            {
                ActivePanel = this;
                SetWindowLong(Handle, GWL_STYLE, GetWindowLong(Handle, GWL_STYLE) | WS_SIZEBOX);
                Width += 1;
                Width -= 1;
            }
        }
 
    public:
        static TPanel *ActivePanel;
 
        TCheckBox *cbxAllowResize; // Добавляем 2 чекбокса
        TCheckBox *cbxAllowMove;
 
        __fastcall virtual TPanel(Classes::TComponent* AOwner)
            : Extctrls::TPanel(AOwner)
        {
            cbxAllowResize = new TCheckBox(this); // создаем чекбокс, разрешающий изменение размеров панели
            cbxAllowResize->Parent = this;
            cbxAllowResize->Left = 10; // позицию подберешь сам
            cbxAllowResize->Top = 10;
            cbxAllowResize->Caption = "Resize";
            cbxAllowResize->Checked = false; // изначально все запрещено
 
            cbxAllowMove = new TCheckBox(this); // это для разрешения перетаскивания
            cbxAllowMove->Parent = this;
            cbxAllowMove->Left = 10;
            cbxAllowMove->Top = 30;
            cbxAllowMove->Caption = "Move";
            cbxAllowMove->Checked = false;
        }
    };
    TPanel *TPanel::ActivePanel = 0;
}
#define TPanel MyPanel::TPanel

void __fastcall TForm1::FormClick(TObject *Sender)
{
    if (TPanel::ActivePanel) // Обязательно добавь, иначе (если кликнешь по форме до даблклика по панели) будет нехорошо
    {
        SetWindowLong(TPanel::ActivePanel->Handle, GWL_STYLE,
            GetWindowLong(TPanel::ActivePanel->Handle, GWL_STYLE) & ~WS_SIZEBOX);
        TPanel::ActivePanel->Width++;
        TPanel::ActivePanel->Width--;
    }
}

for(int i = 0; i < ComponentCount; i++)
 {
   TCheckBox *cbxAllowResize;
   cbxAllowResize = dynamic_cast<TCheckBox*>(Components[i]);
   if(cbxAllowResize->Visible == false) 
   cbxAllowResize -> Visible = true;
 }

    for (int i = 0; i < ComponentCount; i++)
    {
        TPanel *panel;
        if ((panel = dynamic_cast<TPanel*>(Components[i])) != 0)
        {
            panel->cbxAllowResize->Visible = true;
        }
    }