Генерация вопросов к системе тестирования

var 
      QMass : array [1..100] of integer;
 
...............
 
procedure TTestForm.QuestGen(N:integer);
var
   i,j,qnum : integer;
   fnd:boolean;
begin
  fnd:=FALSE;
  Randomize;
  qnum:=Random(N)+1;  // выбираем случайным образом вопрос
  showmessage(IntToStr(qnum));
  for i:=1 to QCOUNT do
     begin
       if QMass[i] = qnum
         then fnd:=TRUE
         else fnd:=FALSE;
     end;
 
if fnd then Showmessage('УЖО БЫЛ')
   else QMass[i]:=qnum;
 
end;
 
 
///////////////////////////////////////////
procedure TTestForm.FormShow(Sender: TObject);
var
   i:integer;
begin
  IDUser:=TestData.ADODataSet4id.Value; // Определяем ID пользователя
  IDTest:=TestData.ADODataSet5id.Value; // Определяем ID темы теста
  QCOUNT:=QThemeCount; // Кол-во вопросов в тесте
     for i:=1 to 100 do
     begin
       QMass[i]:=-1; // очищаем массив под выборку
     end;
 
end;
 
 
//===================== При закрытии формы теста задаем параметры ============
procedure TTestForm.FormDestroy(Sender: TObject);
var
   i:integer;
begin
  TestData.ADOQuery1.Close;  // Закрываем запрос Вопросов
  IDUser:=0;          // ID  пользователя
  IDTest:=0;          // ID теста
  QCOUNT:=0;          // Кол-во вопросов в тесте
   for i:=1 to 100 do
     begin
       QMass[i]:=-1; // очищаем массив под выборку
     end;
end;