Функция для выпадающего списка ComboBox в ячейке StringGrid

void __fastcall TForm1::grSelectCell(TObject *Sender, int ACol, int ARow,
      bool &CanSelect)
{
  if(ACol == 3 && ARow >= 1)
  {
    TRect rc = gr->CellRect(ACol, ARow);
    cl = ACol; rw = ARow;
    TPoint p(rc.Left, rc.Top);
    p = this->ScreenToClient(gr->ClientToScreen(p));
    cmbGr->SetBounds(p.x, p.y, rc.Width(), rc.Height());
 
    cmbGr->ItemIndex = 0;
    for(short i = cmbGr->Items->Count - 1; i >= 0 ; i--)
      if (gr->Cells[ACol][ARow] == cmbGr->Items->Strings[i])
      {
        cmbGr->ItemIndex = i; break;
      }
    cmbGr->Visible = true;
  }
  else
  {
    cmbGr->Visible = false;
    cl = -1; rw = -1;
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::cmbGrExit(TObject *Sender)
{
  gr->Cells[cl][rw] = cmbGr->Text ;
}

namespace SG_ComboBoxes
{
    class TStringGrid : public Grids::TStringGrid
    {
    private:
        __fastcall void GetCbxItems(int ACol, int ARow, TStrings *Items)
        {
            Items->Clear();
            Items->CommaText = "0,1,2,3,4,5,6,7,8,9";
        }
    protected:
        virtual TInplaceEdit* __fastcall CreateEditor(void)
        {
            TInplaceEditList *inplace = new TInplaceEditList(this);
            inplace->DropDownRows = 5;
            inplace->OnGetPickListitems = GetCbxItems;
            return inplace;
        }
        DYNAMIC TEditStyle __fastcall GetEditStyle(int ACol, int ARow)
        {
            if(ACol == 2) return esPickList;
            return esSimple;
        }
    public:
        __fastcall virtual TStringGrid(Classes::TComponent* AOwner)
            : Grids::TStringGrid(AOwner)
        {
        }
    };
}

#define TStringGrid SG_ComboBoxes::TStringGrid