Не получается заполнить StringGrid рандомными разными числами, зависает программа

void __fastcall TForm1::Button5Click(TObject *Sender)
{
AnsiString pattern;
int i,j,n=random(35);
for(i=0; i<6; i++)
        {
                for(j=0; j<6; j++)
                {
                        ShowMessage(n);
                        StringGrid2->Cells[i][j]=n;
                out:
                        n=RandomRange(0, 35);
                        pattern = n;
                        for ( int s = 0; s < StringGrid2->RowCount; s++ )
                        {
                                for ( int r = 0; r < StringGrid2->ColCount; r++ )
                                {
                                        if ( StringGrid2->Cells[s][r] == pattern )
                                        {     
                                                goto out;
                                        }
                                }
                        }
 
                }
        }
}

     srand(time(0));
     for (int p,i=0;i<36;i++)  {
       p = rand() % 36;
       while (StringGrid2->Cells[p%6][p/6].Length() > 0 && i<36)
          p = rand() % 36 ;
       StringGrid2->Cells[p%6][p/6] = i;
     }