Доработать код

[ferrum88]

Всем здравствуйте и приятного время препровождения!!!Мужики, дело вот такое есть прога-тест в ней 4 формы!а именно 3 формы вопросов и четвертая форма ИТОГО!!Предложите пожалуйста ваши варианты дороботки кода что бы четвертая форма показывала не только номер вопроса(формы) где сделана ошибка,но и саму формулировку вопроса!
Код который нужно доработать

 
var 
a:array[0..11]of byte;
 i:integer;
...
procedure TForm3.Button1Click(Sender: TObject);
begin
 label3.Caption:='Ошибки сделаны в вопросах №  ';
 for i:=0 to KolOshibok-1 do
  label3.Caption:=label3.Caption+inttostr(a[i])+', ';
end;

end.

этот код в форме ИТОГО

а вот код на кнопках ответа в формах

procedure TForm1.Button1Click(Sender: TObject); 
begin
           if
        radioButton1.Checked
then
     Begin
        button1.Enabled:=False;         
End

else
       begin 
             button1.Enabled:=False;        
            a[KolOshibok]:=1;// номер формы где сделана ошибка
end;

Этот код ставит только номера форм(вопроса) где сделаны ошибки, резиденты форума взираю к вам!Подскажите пожалуйста вариант кода который будет показывать формулировку вопроса!!
Всем спасибо!