Рандомное заполнение StringGrid С++ builder

void __fastcall TForm2::StringGrid1Exit(TObject *Sender)
{
int n, i;
 
n = random(4);   //количество строк (тип int);
StringGrid1->RowCount = n+2;
StringGrid3->RowCount = n+2;
 
for (i=1; i<n+1; i++) {
 
         StringGrid1->Cells[0][i] = i;
 
         StringGrid3->Cells[0][i] = i;
 
} // for
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::StringGrid2Exit(TObject *Sender)
{
int m, i;
 
m = random(4);
 
StringGrid1->ColCount = m+2;
 
StringGrid2->RowCount = m+2;
 
for (i=1; i<m+1; i++) {
 
         StringGrid1->Cells[i][0] = i;
 
         StringGrid2->Cells[0][i] = i;
 
} // for
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::StringGrid3Exit(TObject *Sender)
{
int l, i;
 
l = random(4);
 
StringGrid2->ColCount = l+2;
 
StringGrid3->ColCount = l+2;
 
for (i=1; i<l+1; i++) {
 
         StringGrid2->Cells[i][0] = i;
 
         StringGrid3->Cells[i][0] = i;
 
} // for
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button2Click(TObject *Sender)
{
int n, m, l, i, j, k;
 
double a;
 
n = random(4);
 
m = random(4);
 
l = random(4);
 
for (i = 1; i <= n; i++) {
 
         for (j = 1; j <= l; j++) {
 
a = 0;
 
for (k = 1; k <= m; k++) {
 
a += StringGrid1->Cells[k][i].ToDouble( ) *
 
StringGrid2->Cells[j][k].ToDouble( );
 
} // for
 
StringGrid3->Cells[j][i] = a;
 
         } // for
 
} // for
}