Ограничение на количество строк в StringGrid

// в H-файле перед классом формы:
namespace LimitedGrid
{
    const int Trial_Limit = 10;
 
    class TStringGrid : public Vcl::Grids::TStringGrid
    {
        typedef Vcl::Grids::TStringGrid Inherited;
    private:
        void __fastcall SetRowCount(int Value)
        {
            if(Value <= Trial_Limit)
            {
                dynamic_cast<Inherited*>(this)->RowCount = Value;
            }
            // else /* Можно вывести сообщение о триальности версии */
        }
        int __fastcall GetRowCount()
        {
            return dynamic_cast<Inherited*>(this)->RowCount;
        }
    public:
        __property int RowCount = {read=GetRowCount, write=SetRowCount};
 
    };
};
#define TStringGrid LimitedGrid::TStringGrid

namespace MyStringGrid
{
    class TMyInplaceEdit : public TInplaceEdit
    {
      public:
        __fastcall virtual TMyInplaceEdit(TComponent* AOwner)
            : TInplaceEdit(AOwner)
        {
            Alignment = taCenter;
        }
    };
 
   const int Trial_Limit = 15;
 
    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)
           {
            if(Value <= Trial_Limit)
            {
                dynamic_cast<Inherited*>(this)->RowCount = Value;
            }
            else ShowMessage("Демо-версия. Ограничение до 15-и пунктов.");/* Можно вывести сообщение о триальности версии */
           }
           else dynamic_cast<Inherited*>(this)->RowCount = Value;
        }
        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 SetRowCount(int Value)
{
    if(bIsProtect && Value <= Trial_Limit) dynamic_cast<Inherited*>(this)->RowCount = Value;
    else ShowMessage("Демо-версия. Ограничение до 15-и пунктов."); // Ну и здесь выводи Trial_Limit, а не хардкодь число
}

    bir = fIsLicense(); //bool
 
    sgFixed->bIsProtect = bir;
    sgCalc->bIsProtect  = bir;

for(int i = 0; i < ControlCount ; i++)
  if(Controls[i]->ClassNameIs("TStringGrid")) dynamic_cast<TStringGrid*>(Controls[i])->bIsProtect = fIsLicense();