Это зачем-же такое чудовище чекастое? Ужас.
Проблема в том, что у вас совершенно невозможно понять какой чекбокс куда относится. По заголовку они не уникальные, по имени они вообще просто никак не групируются. Что-бы все это громадье заново не переделывать рекомендую сделать 3-х мерный массив (Колонка,Группа,Элемент) примерно такого типа:
Код:
Anketa: Array[1..3,1..6,1..5] of TCheckBox;
и ручками их связать:
Код:
Anketa[1,1,1] := CheckBox1;
Anketa[1,1,2] := CheckBox2;
Тогда можно уже будет что-то считать по элементам массива Anketa.
Решение конечно не идеальное, но лучше пока не вижу.