Реализация через PopupMenu функций copy and paste в DrawGrid

void __fastcall TForm1::DrawGrid1MouseUp(TObject *Sender, TMouseButton Button,
    TShiftState Shift, int X, int Y)
{
    TDrawGrid *dg = static_cast<TDrawGrid*>(Sender);
    TGridRect sel = DrawGrid1->Selection;
 
    dg->Canvas->Pen->Color = clRed;
    dg->Canvas->Brush->Style = bsClear;
    dg->Canvas->Rectangle(Rect(dg->CellRect(sel.Left, sel.Top).TopLeft(),
                               dg->CellRect(sel.Right, sel.Bottom).BottomRight()));
}

Grid1SelectCell[ACol][ARow]=1;

if(Grid1SelectCell[ACol][ARow] != 0)
       {//желтым красим периметр ячейки

if(State.Contains(gdSelected))
{//....красим

for(int i=0;i<20;i++)
          {
             for(int j=0;j<10;j++)
              {
                  if (Grid1SelectCell[i][j] != 0 )
                    {
                      /*TRect sel= что то, что его определяет*/
                    }
              }
          }

    TPoint topleft, bottomright;
    bool stop = false;
    for (int i = 0; i < 20 && !stop; i++)
        for (int j = 0; j < 10 && !stop; j++)
        {
            if (Grid1SelectCell[i][j] != 0)
            {
                topleft = Classes::Point(i, j);
                stop = true;
            }
        }
 
    if (stop) // верхний угол был найден
    {
        stop = false;
        for (int i = 19; i > -1 && !stop; i--)
            for (int j = 9; j > -1 && !stop; j--)
            {
                if (Grid1SelectCell[i][j] != 0)
                {
                    bottomright = Classes::Point(i, j);
                    stop = true;
                }
            }
    }

void __fastcall TForm1::Copy1Click(TObject *Sender)
{
    // тут находишь эти самые topleft и bottomright, создаешь из них TRect:
    TRect sel = Classes::Rect(topleft, bottomright);
    // дальше все без изменений
    CopySize = Point(sel.Right - sel.Left + 1, sel.Bottom - sel.Top + 1);
 
    CopyData->Clear();
    for (int i = sel.Left; i <= sel.Right; i++)
        for (int j = sel.Top; j <= sel.Bottom; j++)
        {
            CopyData->Add(GridData[i][j]);
        }
}
 
void __fastcall TForm1::Paste1Click(TObject *Sender)
{
    // достаточно найти только topleft и работать с ним
    // (я правильно понимаю, что ты выбираешь ячейку, начиная с которой будет вставка,
    // или делается как-то по другому, и при правом клике на ячейку перед выбором Paste
    // нужно запомнить, куда именно кликнули?)
    int k = 0;
    for (int i = 0; i < CopySize.x; i++)
        for (int j = 0; j < CopySize.y; j++)
            GridData[(topleft.Left + i) % 12]
                    [(topleft.Left + i) / 12 + topleft.Top + j] = CopyData->Strings[k++];
    DrawGrid1->Invalidate();
}

TRect sel(topleft, bottomright);

TRect sel = Classes::Rect(topleft, bottomright);

TRect sel(topleft, bottomright);

[BCC32 Error] Unit1.cpp(11962): E2451 Undefined symbol 'topleft'

void __fastcall TForm1::DrawGrid1ContextPopup(TObject *Sender, TPoint &MousePos, bool &Handled)
{
    // int APopupCol, APopupRow; // где-то снаружи, чтобы можно было потом использовать
    DrawGrid1->MouseToCell(MousePos.x, MousePos.y, APopupCol, APopupRow);
    Handled = false; // Показывать-таки меню, если будет true - то popup-меню не покажется
}

            GridData[(APopupCol + i) % 12]
                    [(APopupCol + i) / 12 + APopupRow + j] = CopyData->Strings[k++];

TPoint topleft;
    bool stop = false;
    for (int i = 0; i < 20 && !stop; i++)
        for (int j = 0; j < 10 && !stop; j++)
        {
            if (Grid1SelectCell[i][j] != 0)
            {
                topleft = Classes::Point(i, j);
                stop = true;
            }
        }
   int k = 0;
    for (int i = 0; i < CopySize.x; i++)
        for (int j = 0; j < CopySize.y; j++)
            CurrDevImageFllename[(topleft.Left + i) % 20]
                    [(topleft.Left + i) / 20 + topleft.Top + j] = CopyData->Strings[k++];
    DrawGrid1->Invalidate();

            CurrDevImageFllename[(topleft.x + i) % 20]
                    [(topleft.x + i) / 20 + topleft.y + j] = CopyData->Strings[k++];

{
            CurrDevImageFllename[(topleft.x + i) % 20]
                    [(topleft.x + i) / 20 + topleft.y + j] = CopyData->Strings[k++];
            Grid1SelectCell[(topleft.x + i) % 20]
                    [(topleft.x + i) / 20 + topleft.y + j] = 1;
}