ComboBox в StringGrid

namespace SG_ComboBoxes
{
    class TStringGrid : public Grids::TStringGrid
    {
    private:
        __fastcall void GetCbxItems(int ACol, int ARow, TStrings *Items)
        {
            Items->Clear();
            Items->CommaText = "1,2,3,4,5,6,7,8,9"; // Убираешь 0 отсюда, ибо делить на 0 нельзя
        }
    protected:
        virtual TInplaceEdit* __fastcall CreateEditor(void)
        {
            TInplaceEditList *inplace = new TInplaceEditList(this);
            inplace->DropDownRows = 5;
            inplace->OnGetPickListitems = GetCbxItems;
            return inplace;
        }
        DYNAMIC Grids::TEditStyle __fastcall GetEditStyle(int ACol, int ARow)
        {
            return esPickList;
        }
        virtual bool __fastcall SelectCell(int ACol, int ARow)
        {
            return ACol != ARow;
        }
 
        // Тут, в зависимости от версии Билдера, могут быть разные типы строк, надо посмотреть,
        // какой именно тип используется в данной версии и подставить его в заголовок
        DYNAMIC void __fastcall SetEditText(int ACol, int ARow, const System::UnicodeString Value) // Это добавляем
        {
            double f;
            if(TryStrToFloat(Value, f))
            {
                Cells[ARow][ACol] = FloatToStr(1.0 / f);
                Cells[ACol][ARow] = Value;
            }
        }
        DYNAMIC void __fastcall SizeChanged(int OldColCount, int OldRowCount) // Это добавляем
        {
            for(int i = 0; i < ColCount; i++)
                Cells[i][i] = "1";
        }
    public:
        __fastcall virtual TStringGrid(Classes::TComponent* AOwner)
            : Grids::TStringGrid(AOwner)
        {
            ColCount = 6; // И это добавляем, чтобы сработало заполнение единицами при старте программы...
            RowCount = 6;
        }
    };
}
#define TStringGrid SG_ComboBoxes::TStringGrid

void __fastcall TForm1::StringGrid1Click(TObject *Sender)
{ 
    TRect re = StringGrid1->CellRect(StringGrid1->Col,StringGrid1->Row);
    re.Left += StringGrid1->Left+2;
    re.Top  += StringGrid1->Top+2;
    re.right = re.Left+cbx1->Width ;
    cbx1->BoundsRect = re;
    cbx1->DroppedDown = true;
    cbx1->Visible = true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::cbx1Click(TObject *Sender)
{
   StringGrid1->Cells[StringGrid1->Col][StringGrid1->Row]=cbx1->Text;
   cbx1->Visible = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::StringGrid1MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
   cbx1->Visible = false;
}

namespace SG_ComboBoxes
{
    class TStringGrid : public Grids::TStringGrid
    {
    private:
        TNotifyEvent FOnGridButtonClick;
        TOnGetPickListItems FOnGetComboBoxItems;
        void __fastcall SetOnGridButtonClick(TNotifyEvent value)
        {
            FOnGridButtonClick = value;
            if(InplaceEditor)
                OnGridButtonClick = value;
        }
        void __fastcall SetOnGetComboBoxItems(TOnGetPickListItems value)
        {
            FOnGetComboBoxItems = value;
            if(InplaceEditor)
                OnGetComboBoxItems = value;
        }
        TStrings *FComboList;
    protected:
        virtual TInplaceEdit* __fastcall CreateEditor(void)
        {
            TInplaceEditList *inplace = new TInplaceEditList(this);
            inplace->OnGetPickListitems = FOnGetComboBoxItems;
            inplace->OnEditButtonClick  = FOnGridButtonClick;
            FComboList = inplace->PickList->Items;
            return inplace;
        }
        DYNAMIC TEditStyle __fastcall GetEditStyle(int ACol, int ARow)
        {
            TEditStyle MyStyle = esSimple;
            if( MyGetEditStyle )
                MyStyle = MyGetEditStyle(ACol,ARow);
            InplaceEditor->ReadOnly = (MyStyle == esSimple) ? false : true;
            return MyStyle;
        }
        //DYNAMIC void __fastcall SetEditText(int ACol, int ARow, const System::UnicodeString Value) { }
    public:
        __fastcall virtual TStringGrid(Classes::TComponent* AOwner)
            : Grids::TStringGrid(AOwner)
        {
            MyGetEditStyle  = NULL;
            FComboList      = NULL;
        }
        DYNAMIC bool IsCellReadOnly()
        {
            return InplaceEditor->ReadOnly;
        }
        __property TNotifyEvent         OnGridButtonClick   =
            { read = SetOnGridButtonClick,  write = FOnGridButtonClick };
        __property TOnGetPickListItems  OnGetComboBoxItems  =
            { read = SetOnGetComboBoxItems, write = FOnGetComboBoxItems };
        TEditStyle __fastcall (__closure *MyGetEditStyle)(int ACol, int ARow);
        int IndexOfCombo(String Str)
        {
            if(FComboList)
                return FComboList->IndexOf(Str);
            else
                return -1;
        }
        String ComboOfIndex(int i)
        {
            if(FComboList)
                return FComboList->Strings[i];
            else
                return "NULL";
        }
    };
}
#define TStringGrid SG_ComboBoxes::TStringGrid