Тест на 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:=