Выравнивание текста в TStringGrid: как выравнять содержимое ячейки во время режима редактирования?

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();
            }
 
        protected:
            virtual void __fastcall DrawCell(int ACol, int ARow, const TRect &Rect, TGridDrawState AState)
            {
                this->Canvas->Brush->Color = clRed;
                this->Canvas->FillRect(Rect);
 
                String s = Cells[ACol][ARow];
                int x = Rect.Left + (Rect.Width() - Canvas->TextWidth(s)) / 2;
                int y = Rect.Top + 2;
                Canvas->TextOut(x, y, s);
            }
 
        virtual TInplaceEdit* __fastcall CreateEditor(void)
        {
            return new TMyInplaceEdit(this);
        }
    };
}
#define TStringGrid MyStringGrid::TStringGrid