Рандомный выбор записи из БД

void __fastcall TForm4::Random_Mas(String str)
{
  int Mas[50], i, j, temp, ii;
  bool flag;
  for (i = 0; i < 50; i++)
    Mas[i] = i+1;
  randomize;
  srand((unsigned)time(0));
  for (i = 0; i < 50; i++)
    {
      j = rand()%50;
      temp = Mas[j];
      Mas[j] = Mas[i];
      Mas[i] = temp;
    }
  for (i = 0; i < 50; i++)
    {
      flag = false;
      for (ii = 0; ii < 50; ii++)
        {
          if (Form4->Mas_Copy[ii] == Mas[0])
            {
               for (int m = 0; m < 50; m++)
                 {
                   j = rand()%50;
                   temp = Mas[j];
                   Mas[j] = Mas[m];
                   Mas[m] = temp;
                 }
            }
          else
            if (Form4->Mas_Copy[ii] != Mas[0])
              {
                flag = true;
              }
        }
    }
  if (flag == true)
    {
      Form4->Mas_Copy[Form4->k] = Mas[0];
      Form4->k++;
      Form6->Label1->Caption = "Вопрос № " + IntToStr(Form4->k);
    }
  int Mas_Answers [3];
  Mas_Answers[0] = 148;
  Mas_Answers[1] = 208;
  Mas_Answers[2] = 268;
  for (i = 0; i < 3; i++)
    {
      j = rand()%3;
      temp = Mas_Answers[j];
      Mas_Answers[j] = Mas_Answers[i];
      Mas_Answers[i] = temp;
    }
  Form4->ADOTable1->TableName = str;
  Form4->ADOTable1->Active = true;
  Form4->ADOTable1->Refresh();
  Form4->ADOTable1->RecNo = Mas[0];
  Form6->RichEdit1->Lines->Clear();
  Form6->RichEdit1->Lines->Add(Form4->ADOTable1->Fields->FieldByName("quest")->Value);
  Form6->Label4->Caption = Form4->ADOTable1->Fields->FieldByName("answers1")->Value;
  Form6->Label2->Caption = Form4->ADOTable1->Fields->FieldByName("answers2")->Value;
  Form6->Label3->Caption = Form4->ADOTable1->Fields->FieldByName("answers3")->Value;
  Form6->CheckBox1->Top = Mas_Answers[0];
  Form6->Label4->Top = Mas_Answers[0];
  Form6->CheckBox2->Top = Mas_Answers[1];
  Form6->Label2->Top = Mas_Answers[1];
  Form6->CheckBox3->Top = Mas_Answers[2];
  Form6->Label3->Top = Mas_Answers[2];
}