Закрасить целую строку с определенным значением

for(int i=0;i<StringGrid1->ColCount-1;i++)
      {
 
            if(StringGrid1->Cells[i][ARow]==111)
            {
                ACol=i;
                StringGrid1->Canvas->Brush->Color = clGreen;
                StringGrid1->Canvas->FillRect(Rect);
            }
 
      }
 
 
      for(int j=0;j<StringGrid1->ColCount-1;j++)
    {
        for(int i=0;i<StringGrid1->ColCount-1;i++)
        {
                if (ACol == i && ARow == j) // определяем конкретную ячейку
 
                {
                    StringGrid1->Font->Size=10;
                    StringGrid1->Canvas->FillRect(Rect);
                    StringGrid1->Canvas->TextOutW(Rect.Left+2,Rect.Top+2, StringGrid1->Cells[ACol][ARow]) ;
                }
        }
    }

void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow,
    TRect &Rect, TGridDrawState State)
{
    TStringGrid *grid = static_cast<TStringGrid*>(Sender);
    if (grid->Rows[ARow]->IndexOf("111") > -1)
    {
        grid->Canvas->Brush->Color = clGreen;
    }
    else
    {
        grid->Canvas->Brush->Color = clWhite;
    }
    grid->Canvas->FillRect(Rect);
    grid->Canvas->TextOutW(Rect.Left + 2, Rect.Top + 2, grid->Cells[ACol][ARow]);
}

StringGrid1->Invalidate();