Рандом с появлением групбоксов, рандом с расположением ответов в программе тестирования

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
randomize;
a:=false;
b:=false;
c:=false;
if (radiobutton1.Checked or radiobutton2.Checked) then a:=true;
if (radiobutton3.Checked or radiobutton4.Checked) then b:=true;
if (radiobutton5.Checked or radiobutton6.Checked) then c:=true;
if ((a=true) and (b=true) and (c=true)) then begin
showmessage('все ответы даны');
exit end else begin
if ((a=false) and (b=false) and (c=false)) then begin
i:=random(3) end else
if ((a=true) and (b=false) and (c=false)) then begin
i:=random(2)+1 end else
if ((a=false) and (b=true) and (c=false)) then begin
i:=2 end else
if ((a=false) and (b=false) and (c=true)) then begin
i:=random(2) end else
if ((a=true) and (b=true) and (c=false)) then begin
i:=3 end else
if ((a=false) and (b=true) and (c=true)) then begin
i:=random(1) end else
if ((a=true) and (b=false) and (c=true)) then begin
i:=1 end;
edit1.text:=Memo1.lines[i];
if edit1.text=memo1.Lines[0]
then begin
groupbox1.Visible:=true;
groupbox2.Visible:=false;
groupbox3.Visible:=false end;
begin
if edit1.text=memo1.Lines[1]
then begin
groupbox2.Visible:=true;
groupbox1.Visible:=false;
groupbox3.Visible:=false end;
begin
if edit1.text=memo1.Lines[2]
then begin
groupbox1.Visible:=false;
groupbox2.Visible:=false;
groupbox3.Visible:=true end;
end; end; end; end;

 //описываем множество, для определения вопросов, какие уже задавались
var a:set of byte;

  repeat
//генерируем номер вопроса
    b:random(10);
//если он уже задавался - переходим на начало цикла
  until not (b in a);
//включаем номер вопроса в множество, чтобы больше не задавать
  include(a,b);
//все. вопрос номер b еще не задавался и его можно задать

var
  Form1: TForm1;
  mas: array[0..10] of Integer;
  n, i, velm: Integer; //счетчик, временный элемент, цикл
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  //заполним массив упорядоченно
  for i := 0 to 10 do
    mas[i] := i;
 
  n := 10; //для последнего числа в массиве
  velm := 10; //для выпавшего элемента (случайного числа)
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  velm := Random(n);
  ListBox1.Items.Add('рандом число = ' + IntToStr(velm) + ', число в этом элементе = ' + IntToStr(mas[velm]));
 
  //теперь в этом же элементе массива лежит число из последнего элемента массива
  mas[velm] := mas[n];
  velm := velm - 1;
  n := n - 1;
end;

[Warning] Unit1.pas(34): For loop control variable must be simple local variable

var
  Form1: TForm1;
   r:set of byte;
  qw:integer=0;
 
implementation
 
procedure TForm1.Button4Click(Sender: TObject);
var
v:integer;
begin
if button4.caption='Завершить'
 then begin showmessage('') end else begin
button4.caption:='Продолжить';
if button4.caption='Продолжить' then begin
button4.enabled:=false;
randomize;
repeat
v:=random(6);
edit1.text:=memo1.lines[v];
  until not (v in r);
  include(r,v);
 if v=0 then qw:=qw+1;
  if v=1 then qw:=qw+1;
   if v=2 then qw:=qw+1;
    if v=3 then qw:=qw+1;
     if v=4 then qw:=qw+1;
      if v=5 then qw:=qw+1;
       if qw=6 then button4.Caption:='Завершить';
  end; end; end;
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
groupbox1.Visible:=edit1.text=memo1.Lines[0];
groupbox2.Visible:=edit1.text=memo1.Lines[1];
groupbox3.Visible:=edit1.text=memo1.Lines[2];
groupbox4.Visible:=edit1.text=memo1.Lines[3];
groupbox5.Visible:=edit1.text=memo1.Lines[4];
groupbox6.Visible:=edit1.text=memo1.Lines[5];
end;