Код:
//в 13й форме
var a:array[0..11]of byte;
//в остальных Там где увеличивается KolOshibok
...
begin
label1.Caption:=' Ошибка';
button1.Enabled:=False;
button2.Visible:=true;
a[KolOshibok]:=N; // Сюда в каждой форме подставить номер этой формы
inc(KolOshibok);
end;
...
потом можно из этого массива узнать, в каких формах были ошибки:
Код:
label1.text:='';
for i:=0 to KolOshibok-1 do
label1.text:=label1.text+inttostr(a[i])+', ';
выведет в Label1 все номера вопросов, где были ошибки через запятую