StringGrid закраска ячеек

int i,j;
int x[8] [5];
float k;
//---------------------------------------------------------------------------
 
void __fastcall TForm2::FormCreate(TObject *Sender)
{
TGridRect rect;
rect.Top = -1;
rect.Left = -1;
rect.Right = -1;
rect.Bottom = -1;
StringGrid1->Selection = rect;
StringGrid2->Selection = rect;
StringGrid3->Selection = rect;
 }
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Timer1Timer(TObject *Sender)
{
for (int i=0; i <= 4; i++) {
    for (int j = 0; j <= 7; j++) {
        x[i][j]=rand()%2;
        StringGrid1->Cells[j][i]=x[i][j];
        }
    }
}
//---------------------------------------------------------------------------

void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect,
          TGridDrawState State)
{
    TStringGrid *grid = static_cast<TStringGrid*>(Sender);
 
    if(grid->Cells[ACol][ARow].ToIntDef(0) == 0)
        grid->Canvas->Brush->Color = clBlue;
    else
        grid->Canvas->Brush->Color = clRed;
    grid->Canvas->FillRect(Rect);
    grid->Canvas->Font->Color = clWhite;
    grid->Canvas->TextOut(Rect.Left + 2,Rect.Top + 2, grid->Cells[ACol][ARow]);
}