BCB6 StringGrid操作，写了个乘法口诀

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{

  int i,j;
  for(i=0;i<=9;i++)
  {
    if(i==0){
     strngrd1->Cells[0][0] = "乘法口诀";
             }
     else
     {
        strngrd1->Cells[i][0]=IntToStr(i);
        strngrd1->Cells[0][i]=IntToStr(i);
     }
  }
  for(i=1;i<=9;i++)
   for(j=1;j<=9;j++)
   {
       strngrd1->Cells[i][j]= IntToStr(i*j);

   }
}