Как раскрасить строку в StringGride?

for (int i = 1; i < sgGrid->RowCount; i++)
{  if (sgGrid->Cells[0][i]==srav)
  { usl=true;
  UnicodeString str = f + sgGrid->Cells[2][i];
  MessageBox(NULL, str.c_str(), L"Квитанция", MB_OK);
   }
}

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

for (int i = 1; i < sgGrid->RowCount; i++)
{  
  if (sgGrid->Cells[0][i]==srav)
    { 
    StringGrid1->DrawColorRow( i, clPurple ); // ^_^
 
    usl=true;
    UnicodeString str = f + sgGrid->Cells[2][i];
    MessageBox(NULL, str.c_str(), L"Квитанция", MB_OK);
    }
}