Странная отрисовка ячейки в StringGrid

namespace MyStringGrid
{
    class TStringGrid : public Grids::TStringGrid
    {
    private:
        const TColor DefRowColor;
        TColor CurrRowColor;
        int ANumColorRow;
    public:
 
        __fastcall virtual TStringGrid( Classes::TComponent* AOwner )
            : Grids::TStringGrid( AOwner ),
              ANumColorRow( -1 ),
              CurrRowColor( this->Canvas->Brush->Color ),
              DefRowColor( this->Canvas->Brush->Color ) // Пригодится
            {};
 
        void __fastcall DrawColorRow( int NumRow, TColor Color )
            {
            ANumColorRow = NumRow;
            CurrRowColor = Color;
            Invalidate();
            }
 
        void __fastcall DrawCell( int ACol, int ARow, const TRect &ARect, TGridDrawState AState )
            {
            if( ARow == ANumColorRow && ARow >= FixedRows ) // !AState.Contains( gdFixed )
                Canvas->Brush->Color = CurrRowColor;
            else
                Canvas->Brush->Color = DefRowColor;
 
            Grids::TStringGrid::DrawCell( ACol, ARow, ARect, AState );
            }
    };
};
 
#define TStringGrid MyStringGrid::TStringGrid