Случайный выбор ячеек таблицы

double Pust[25];
 
  randomize();
  o=rand()%m; //ñòîëáöû
  randomize();
  p=rand()%n; //ñòðîêè
 
  for (i=0; i<4; i++) {Pust[i]=StrToFloat(Form1->StringGrid1->Cells[p-1][o-1]);
                            Form1->StringGrid1->Cells[p-1][o-1]=" ";}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    int c = rand()%StringGrid1->ColCount;
    int r = rand()%StringGrid1->RowCount;
    StringGrid1->Cells[c][r] = "";
}

double zap;
...
  c=rand()%Form1->StringGrid1->ColCount; //ñòîëáöû
  r=rand()%Form1->StringGrid1->RowCount; //ñòðîêè
  zap=StrToFloat(Form1->StringGrid1->Cells[c][r]);
  Form1->StringGrid1->Cells[c][r] = "";

//---------------------------------------------------------------------------
AnsiString GetRand()
{
    //проверяем, может таблица вообще пуста
    int prov_count = 0;
    for(int provC = 0; provC < Form1->StringGrid1->ColCount; provC++)
    {
        for(int provR = 0; provR < Form1->StringGrid1->RowCount; provR++)
        {
            if(Form1->StringGrid1->Cells[provC][provR].Length() > 0)
            {
                prov_count++;
                provR = Form1->StringGrid1->RowCount;
                provC = Form1->StringGrid1->ColCount;
            }
        }
    }
    if(prov_count == 0) {return 0;}
 
    // тут уже берем значение ячейки, если она не пустая
    int c, r;
    AnsiString temp;
    for(int RC = 0; RC < 10; RC++)
    {
        c = rand()%Form1->StringGrid1->ColCount;
        r = rand()%Form1->StringGrid1->RowCount;
 
        if(Form1->StringGrid1->Cells[c][r].Length() > 0)
        {
            temp = Form1->StringGrid1->Cells[c][r];
            Form1->StringGrid1->Cells[c][r] = ""; // clear
            RC = 99;
        }
        else
        {
            RC = 0;
        }
    }
    return temp;
    /*
    или вернуть строку вида a|b|c, и потом просто разобрать ее на части
    return AnsiString(AnsiString(c) + "|" + AnsiString(r) + "|" + temp);
    */
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    ShowMessage(GetRand());
}
//---------------------------------------------------------------------------