Тест на Delphi

Создание тестов на Delphi. P.S. (спустя три года) Видеоурок был создан для конкретного случая: провести музейный урок под тему учебного материала. Сейчас бы я всё делала не так. Чтобы сильно всё не переделывать, вот код работающей программы (даже, если ничего не выбрано) и добавлена кнопка для сбрасывания результата, чтобы тест пройти ещё раз: var Form1: TForm1; ball:integer; const otv:array[1..5]of byte=(1,2,1,3,0); {$R *.dfm} procedure TForm1.BitBtn2Click(Sender: TObject); begin label3.caption:=''; label4.caption:=''; radiogroup1.itemIndex:=-1; radiogroup2.itemIndex:=-1; radiogroup3.itemIndex:=-1; radiogroup4.itemIndex:=-1; radiogroup5.itemIndex:=-1; end; procedure TForm1.Button1Click(Sender: TObject); begin ball:=0; if radiogroup1.ItemIndex=otv[1] then inc(ball); if radiogroup2.ItemIndex=otv[2] then inc(ball); if radiogroup3.ItemIndex=otv[3] then inc(ball); if radiogroup4.ItemIndex=otv[4] then inc(ball); if radiogroup5.ItemIndex=otv[5] then inc(ball); label3.caption:='Правильно ответил на '+IntToStr(ball)+' из 5-ти вопросов'; if ball=5 then label4.caption:='Экскурсию прослушал очень внимательно. Молодец!' else if (ball=3) or (ball=4) then label4.caption:='Не всегда был внимательный' else label4.caption:='Экскурсию прослушал очень плохо' ; end; end.