Шаг 4. Обрабатываем события кнопок

Итог - выводит в свойство Label1. Caption количество правильных ответов; запрашивает через окно ввода (InputBox) имя пользователя; выводит в Label2. Caption оценку за тест. Блокирует (делает недоступными) все объекты для ввода-выбора ответов (использует свойство Enabled);

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
Label1.Caption:=inttostr(k);
s:=InputBox('Информация о тестируемом','Введите Ваше ИМЯ','');
case k of
6: Label2.Caption:=s+', Вы ОТЛИЧНО знаете этот материал!';
4..5: Label2.Caption:=s+', Вы ХОРОШО знаете этот материал!';
3: Label2.Caption:=s+', Вы допустили много ошибок. Оценка 3';
else Label2.Caption:=s+', Вы плохо знаете этот материал!';
end;
RadioGroup1.Enabled:=false;
ListBox1.Enabled:=false;
ComboBox1.Enabled:=false;
CheckBox1.Enabled:=false;
CheckGroup1.Enabled:=false;
Edit1.Enabled:=false;
end;
…. Очистить – очищает все объекты (или ставит все параметры по умолчанию). Делает объекты для ввода-выбора ответов доступными (написать процедуру самостоятельно)