Изменять цвет текста внутри InplaceEdit во время редактирования

namespace MyStringGrid
{
    class TMyInplaceEdit : public TInplaceEdit
    {
    protected:
        virtual void __fastcall BoundsChanged(void)
        {
            TRect r = Classes::Rect(10, 5, Width - 11, Height);
            SendStructMessage(Handle, EM_SETRECTNP, 0, &r);
            SendMessage(Handle, EM_SCROLLCARET, 0, 0);
        }
    public:
        __fastcall virtual TMyInplaceEdit(TComponent* AOwner)
            : TInplaceEdit(AOwner)
        {
            Alignment = taCenter;
 
        }
 
        void ChangeColor(TColor Color)   // Добавленная функция изменения цвета текста. 
        {
            Font->Color = Color;
        }
 
    };
 
 
 
    class TStringGrid : public Grids::TStringGrid
    {
public:
        TMyInplaceEdit *TextEditor;  // Переменная, которая хранит в себе адрес созданного InplaceEditor.
 
 
        protected:
 
        virtual TInplaceEdit* __fastcall CreateEditor(void)
        {
            TMyInplaceEdit *IEdit = new TMyInplaceEdit(this);
            this->TextEditor = IEdit; //При создании InplaceEdit, в заранее подготовленную переменную заносится адрес объекта.
            return IEdit;
        }
    };
}
#define TStringGrid MyStringGrid::TStringGrid

void __fastcall TMainForm::ValuesSetEditText(TObject *Sender, int ACol, int ARow,
          const UnicodeString Value)
{
    if(какое-то условие) Table->TextEditor->ChangeColor(clRed);
}

    class TStringGrid : public Grids::TStringGrid
    {
    public:
        __property InplaceEditor; // это свойство описано в TCustomGrid, здесь просто даем доступ к нему
 
 
    protected:
        virtual TInplaceEdit* __fastcall CreateEditor(void)
        {
            return new TMyInplaceEdit(this);
        }
    };

void __fastcall TForm1::StringGrid1SetEditText(TObject *Sender, int ACol, int ARow,
          const UnicodeString Value)
{
    if(Value == "112")
        static_cast<MyStringGrid::TMyInplaceEdit*>(StringGrid1->InplaceEditor)->ChangeColor(clRed);
}