void __fastcall TForm1::Button3Click(TObject *Sender)
{
        int i;
        for (i = 1; i <= 36; i++)
        {
                if (((TCheckBox*)FindComponent("CheckBox"+IntToStr(i)))->Checked)
                        DATA[6][i] = 1;
                else DATA [6][i] = 0;
        }       
        int nbuk = 6;
        Label1->Caption = IntToStr(nbuk);
        for (i = 0; i < 5; i++)
        {
                if (fact(summ(i,6)) == 1) nbuk = i;
        }

        ((TCheckBox*)FindComponent("CheckBox5"+IntToStr(nbuk)))->Checked = true;
}
Я делаю такую запись, для нахождения группы CheckBox-ов, и проверяю находится ли он в состоянии true или false. Программа компилируестя, но когда я нажимаю кнопку Button3 он мне выдает ошибку. 
Где ошибка в листинге, подскажите пожалуйста.   

Какую ошибку?

Выделенный тобой фрагмент кода прекрасно отрабатывает, если конечно есть ВСЕ CheckBox-ы от 1-го до 36-го... Если хоть одного из них нет, то будет AV...

Проще сделать массив указателей на чекбоксы

Он выдает ошибку:
Access violation at address 00401D51 in module 'Project1.exe'. Read of address 000000000
И если не трудно, как сделать массив указателей на чек боксы.

Счас только заметил. Если закоментировать 
else DATA[6][i], то прога работает. Дак в чем же ошибка   

Robomozg, для преобразования лучше используй dynamic_cast.
А что такое DATA, скорее всего ты выходиш за пределы массива этого DATA