StringGrid: текст не виден при раскрашивании ячейки

void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect,
          TGridDrawState State)
{
    StringGrid1->Cells[1][0]="2255";
    if (ACol == 1 && ARow == 0) 
{
    StringGrid1->Canvas->Brush->Color = RGB(255, 222, 173);
    StringGrid1->Canvas->Rectangle(Rect);
}

    StringGrid1->Canvas->Font->Color = ... ; // <--- Нужный цвет текста
    StringGrid1->Canvas->TextOut(Rect.Left + 2,Rect.Top + 2, StringGrid1->Cells[ACol][ARow]);

  StringGrid1->Canvas->Font->Color = clBlack;
  DrawText(StringGrid1->Canvas->Handle,
           StringGrid1->Cells[ACol][ARow].c_str(),
           StringGrid1->Cells[ACol][ARow].Length(),
           Rect,DT_SINGLELINE|DT_LEFT);

void __fastcall TfMain::sgFixedDrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect,
          TGridDrawState State)
{
      TCanvas *C = sgFixed/*sgFixed - TStringGrid*/->Canvas;
      AnsiString S=sgFixed->Cells[ACol][ARow];
 
      Rect.Left-=4;
 
      C->Font->Color = clBlack;
 
   if(State.Contains(gdFixed))
   {
    GradientFillCanvas(C, gsc, gec, Rect, gdVertical);
    //sgFixed->Canvas->Font->Color = clBlack;
    C->Font->Style = TFontStyles() << fsBold;
    C->Font->Size  = 8;
 
   }
     else
     {
        C->Brush->Color=clWhite;
        C->FillRect(Rect);
     }
 
     C->TextRect(Rect, Rect.left + (Rect.Width() - C->TextWidth(S)) / 2, Rect.top + (Rect.Height() - C->TextHeight(S)) / 2, S);
}