Шахматная доска не закрашивается, как нужно

void __fastcall TForm1::FormCreate(TObject *Sender)
{
/*
StringGrid1->Cells[0][0]="-";
StringGrid1->Cells[0][1]="1";
StringGrid1->Cells[0][2]="2";
StringGrid1->Cells[0][3]="3";
StringGrid1->Cells[0][4]="4";
StringGrid1->Cells[0][5]="5";
StringGrid1->Cells[0][6]="6";
StringGrid1->Cells[0][7]="7";
StringGrid1->Cells[0][8]="8";
*/
//Graphics::TBitmap *bm = new Graphics::TBitmap;
//bm->LoadFromFile("img\\brown.bmp") ;
for(int j=0;j<=8;j++)
{                           //   StringGrid1->Objects[0][j+1]=(TObject*)bm;
   StringGrid1->Cells[0][j+1]=j+1;
}
StringGrid1->Cells[1][0]="A";
StringGrid1->Cells[2][0]="B";
StringGrid1->Cells[3][0]="C";
StringGrid1->Cells[4][0]="D";
StringGrid1->Cells[5][0]="E";
StringGrid1->Cells[6][0]="F";
StringGrid1->Cells[7][0]="G";
StringGrid1->Cells[8][0]="H";
 
 
}
//---------------------------------------------------------------------------
 
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect,
          TGridDrawState State)
{
  if(ACol == 0 && ARow == 1)//здесь я тестил и оно работает но не корректно
    {
        StringGrid1->Canvas->Brush->Color = RGB(102,51,51);
                StringGrid1->Canvas->TextOutW(0,0,StringGrid1->Cells[ACol][ARow])    ;
        StringGrid1->Canvas->FillRect(Rect);
 
    }
}