TStringGrid вставка строки между существующих строк

namespace SG
{
  class TStringGrid : public Grids::TStringGrid
  {
    public:
      using Grids::TStringGrid::MoveRow;
  };
};
#define TStringGrid SG::TStringGrid
//---------------------------------------------------------------------------
class TForm1 : public TForm
... //Дальше все, как есть

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  StringGrid1->RowCount++; //Добавили строку в конец таблицы
  StringGrid1->MoveRow(StringGrid1->RowCount - 1, 2); //Переместили вставленную строку с последней позиции в 3-ю сверху.
}

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

namespace SG
{
  class TStringGrid : public Grids::TStringGrid
  {
    public:
      using Grids::TStringGrid::MoveRow;
      using Grids::TStringGrid::DeleteRow;
      using Grids::TStringGrid::DeleteColumn;
  };
};
//---------------------------------------------------------------------------
#define TStringGrid SG::TStringGrid

namespace SG
{
  class TStringGrid : public Grids::TStringGrid
  {
    public:
      using Grids::TStringGrid::MoveRow;
      using Grids::TStringGrid::MoveColumn; // Ужас как сложно, правда?
      using Grids::TStringGrid::DeleteRow;
      using Grids::TStringGrid::DeleteColumn;
  };
};
//---------------------------------------------------------------------------
#define TStringGrid SG::TStringGrid