Непонятное поведение при работе StringGrid

namespace MyStringGrid
{
    class TMyInplaceEdit : public TInplaceEdit
    {
      public:
        __fastcall virtual TMyInplaceEdit(TComponent* AOwner)
            : TInplaceEdit(AOwner)
        {
            Alignment = taCenter;
        }
    };
 
 
 
    class TStringGrid : public Grids::TStringGrid
    {
        public:
            DYNAMIC void __fastcall Resize(void)
            {
                // ...
                Grids::TDrawGrid::Resize();
            }
 
          bool bIsProtect;
 
        __property int RowCount = {read=GetRowCount, write=SetRowCount};
 
        typedef Vcl::Grids::TStringGrid Inherited;
          private:
        void __fastcall SetRowCount(int Value)
        {
           if(bIsProtect == false)
           {
                      //некий проверочный код   
                      
           }
           else //условие проверки
        }
 
        int __fastcall GetRowCount()
        {
            return dynamic_cast<Inherited*>(this)->RowCount;
        }
 
            DYNAMIC void __fastcall KeyPress(System::WideChar &Key) //запрет на ввод буков и прочего мусора
            {
               Set <wchar_t, 0, 255> Dig;
               Dig << '0' << '1' << '2' << '3' << '4' << '5' << '6' << '7' << '8' << '9' << '.' << ',' << '-' << VK_RETURN << VK_BACK << VK_ESCAPE;
 
                if(Key == ',') Key = '.';
                if(!Dig.Contains(Key)) Key=0;
            }
 
        virtual TInplaceEdit* __fastcall CreateEditor(void)
        {
            return new TMyInplaceEdit(this);
        }
    };
}
#define TStringGrid MyStringGrid::TStringGrid

void __fastcall TfMain::sgCalcSetEditText(TObject *Sender, int ACol, int ARow, const UnicodeString Value)
{
  if(cbIsGeod->Checked) return;
 
   double d;
 
  if(Value!="")
  {
   if(Value!="-")
    try
    {
       d = StrToFloat(Value);
    }
    catch(...)
    {
       ShowMessage(Value+"\nНеверное значение!");
       sgCalc->Cells[ACol][ARow] = "";
    }
  }
}