Access violation. Выход за границы массива

void __fastcall TForm1::FormActivate(TObject *Sender)
{
ifstream listbotan ("Список должников.txt");
if(!listbotan){ShowMessage("Ошибка! Не найден Список должников.txt");}
 
//Код участника|Код книги|Дата выдачи|Срок возврата
struct Botans {
int Bbotans;
int Bbooks;
char vydano[12];
char vozvr[12];
};
 
const int l=30;    //длинна текста
const int d=13;    //длинна даты
const int ch=5;    //длинна числа(код)
 
char str[150];     //длинна считываемой строки
int b=1;           //Порядковый номер структуры книги
int i=1;           //Порядковый номер структуры посетители
int bot=1;         //Порядковый номер структуры должников
 
char temp[15];     //для перевода строки в число
int nom=0;         //указатель на считываемую строку
 
 
StringGrid3->Cells[1][0]="ФИО";
StringGrid3->Cells[2][0]="Название книги";
StringGrid3->Cells[3][0]="Дата выдачи";
StringGrid3->Cells[4][0]="Срок возврата";
 
while(listbotan){                         //-------Начинается считывание
 
Botans *Botan = new Botans[bot];
listbotan.getline(str,sizeof(str));
 
for(int j=0;j<ch;j++,nom++) {
    if(str[nom]=='|'){
        Botan[bot].Bbotans=atoi(temp);
        strcpy(temp,"      ");  nom++; break;}
    temp[j]=str[nom];
    }
 
if(Botan[bot].Bbotans){
    StringGrid3 -> Cells[0][bot]=bot; StringGrid3->Cells[1][bot]=Botan[bot].Bbotans;}
else break;

for(int j=0;j<ch;j++,nom++) {
    if(str[nom]=='|'){
        Botan[bot].Bbooks=atoi(temp); StringGrid3->Cells[2][bot]=Botan[bot].Bbooks;
        strcpy(temp,"      "); nom++; break;
        }
    temp[j]=str[nom];
    }
 
for(int j=0;j<d;j++,nom++) {
    if(str[nom]=='|'){
        StringGrid3->Cells[3][bot]=Botan[bot].vydano;
        nom++; break;}
    Botan[bot].vydano[j]=str[nom];
    }
 
for(int j=0;j<d;j++,nom++) {
    if(str[nom]=='|'){
        StringGrid3->Cells[4][bot]=Botan[bot].vozvr;
        bot++;  StringGrid3->RowCount = bot;
        nom=0; break;}
    Botan[bot].vozvr[j]=str[nom];}
 
}listbotan.close();

Books *Book = new Books[b];