StringGrid удаление выделенной строки с выползающим меню

void __fastcall TForm1::StringGrid1Click(TObject *Sender)
{
    if(MessageDlg(L"Удалить строку?", mtWarning, TMsgDlgButtons() << mbOK << mbCancel, 0) == mrOk)
    {
        TStringGrid *grid = static_cast<TStringGrid*>(Sender);
        grid->DeleteRow(grid->Row);
    }
}

// в h-файле, перед описанием класса формы:
namespace StringGrid_Delete
{
    class TStringGrid : public Grids::TStringGrid
    {
    public: // открываем в перехватчике оба метода
        using Grids::TStringGrid::DeleteRow;
        using Grids::TStringGrid::DeleteColumn;
    };
};
// и подсовываем перехватчик вместо стандартного компонента
#define TStringGrid StringGrid_Delete::TStringGrid

TColor cwet = clGradientActiveCaption,// цвет курсора в списке
         int count = StringGrid1->RowCount; // подсчет количества строк
         int row = StringGrid1->Row;  // строка на которой стоит курсор
{
////////////////////////////////////////////////////////////////////////////////
     cwet = clRed; // закрашиваю красным строку для удаления
 
////////////////////////////////////////////////////////////////////////////////
        TGridRect rect;
        rect.Top = StringGrid1->Row;  // номер строки которую хотим выделить;
        rect.Left = 0; //номер колонки, с которой хотим выделить;
        rect.Right = 3; //  номер колонки, до которой хотим выделить;
        rect.Bottom = StringGrid1->Row; // номер строки которую хотим выделить;
        StringGrid1->Selection = rect;// закрашиваем строку
}

//..............................................................................
     for ( int i = row; i < count-1; i++ )//начать перемещение с помеченой строки
        {       //перезаписываю нижнюю строку в верхнюю
                StringGrid1->Rows[i] = StringGrid1->Rows[i+1];//перемещение строк вверх
        }
        StringGrid1->RowCount--; // удаляю последнею строку!
        StringGrid1->Rows[count-1]->Clear();// очистка последней строки!!!
// --------------------------------------------------------------------------

StringGrid1->Row = row;

int Index = StringGrid3->Selection.Top;
if(Index != StringGrid3->RowCount-1)
 {
for(int i=Index; i<StringGrid3->RowCount-1; i++)
   StringGrid3->Rows[i] = StringGrid3->Rows[i+1];
   StringGrid3->RowCount--;
}

 if(MessageDlg(L"Удалить строку?", mtWarning, TMsgDlgButtons() << mbOK << mbCancel, 0) == mrOk)
    {
        TStringGrid *grid = static_cast<TStringGrid*>(Sender);
        grid->DeleteRow(grid->Row);
    }

        String dlina = IntToStr (StringGrid1->RowCount).Length();//подсчет знаков в счетчике
     // здесь автоматическое  переименование строк!
        for ( r = 0; r < count; r++)
            {
        String strg = IntToStr (r+1); // определение длины текущего знак счетчика
//--------отнять из количества знаков в счетчике - текущий знак (длина) --------
        int nul = (dlina-strg.Length());//определяю сколько нужно добавить нулей в начало счетчика
        for (int t = nul; t > 0; t--) {
                          nn = nn+"0";}
        StringGrid1->Cells[0][r]=nn+strg;  //  [колонка] [строка]  "000"+
         nn="";
            }