StringGrid ошибка при попытке клика правой кнопкой по редактируемой ячейке

Grid->Options = Grid->Options << goEditing;

Control 'TInplaceEdit ($06075D40)' has no parent window.
Path: GridRectangleComponent ^TTInstanceEdit($06075D40)

try {
        TNeoStringGrid *StringGrid1 = new TNeoStringGrid(NULL);                      
        StringGrid1->ParentWindow = RectangleHandle;                                 //родительским окном назначаем прямоугольник, указывая его дескриптор
        AnsiString GridName = "Grid" + AnsiString(Params[0]);              
        StringGrid1->Name = GridName;                                             
        StringGrid1->RectangleName = AnsiString(Params[0]);                        
        //----------------------------------------------------------------------
        StringGrid1->DrawingStyle = gdsClassic;            
        StringGrid1->ColCount = StrToIntDef(Params[1], 5);                          
        StringGrid1->RowCount = StrToIntDef(Params[2], 5);
        StringGrid1->FixedCols = StrToIntDef(Params[3], 1);
        StringGrid1->FixedRows = StrToIntDef(Params[4], 1);
        //----------------------------------------------------------------------
        StringGrid1->Options = StringGrid1->Options << goEditing;
        // Натягиваем на прямоугольник
        TRect R;                                                           
        GetClientRect(RectangleHandle, &R);                                  
        SetWindowPos(StringGrid1->Handle, 0, 0, 0, R.Right - R.Left, R.Bottom - R.Top, SWP_SHOWWINDOW); 
        //----------------------------------------------------------------------
 
        GridList->Add(StringGrid1);                                         
        
        return true;
    }

class TNeoStringGrid : public TStringGrid {
    //--------------------------------------------------------------------------
    private:
 
    protected:
 
    
    public:
        AnsiString RectangleName;                                             //для прямоугольника
    
 
        __fastcall virtual TNeoStringGrid(Classes::TComponent* AOwner) : Vcl::Grids::TStringGrid(AOwner) {                                
 
        }
 
        __fastcall virtual ~TNeoStringGrid() {                              
 
        }
    
};