Ошибка с массивом. Система тестирования.

[motor666]

Здравствуйте! Пишу программу тестирования. Есть форма на ней одна кнопка Ответить , TWebBrowser для вывода вопросов из БД и радиокнопки для выбора ответов. На обработчик события нажатия кнопки Ответить я кидаю процедуру QuestGEN (n:integer); - процедура выборки случайного номера вопроса, где n - всего (кол-во) вопросов. Массив куда я сохраняю значения описан внешне .... я его "обнуляю" каждый раз при ShowForm и DestroyForm , т.е заполняю значениями "-1". Ниже привел пример процедуры которую пишу но она почему-то неправильно работает ...помогите пожалуйста исправить или подскажите как лучше с алгоритмом выборки.

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.Valu e; // Определяем ID пользователя
IDTest:=TestData.ADODataSet5id.Valu e; // Определяем 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;