Проблема с созданием объекта динамического массива Класса

void Tlibrary_list::AddBook (const AnsiString way_to_the_book,const AnsiString way_to_the_cover,const AnsiString name,const AnsiString author,const AnsiString publishing_house,const int year_of_publication,const int pages,const AnsiString language)
{
TBookS Buf; //Временный объект хранения данных по книге
Buf.way_to_the_book=way_to_the_book; //Путь к книге
Buf.way_to_the_cover=way_to_the_cover; //Путь к обложке
Buf.name=name; //Название
Buf.author=author; //Автор
Buf.publishing_house=publishing_house; //Издательство
Buf.year_of_publication=year_of_publication; //Год издания
Buf.pages=pages; //Кол-во страниц
Buf.language=language; //Язык
BookS = (TBookS*)ReallocMemory(BookS, (kolvo+1)*sizeof(Buf)); // переопределение размера массива
[COLOR="red"]BookS[kolvo] = Buf; //Внесение данных в динамический массив[/COLOR]
kolvo=kolvo+1; // кол-во книг в списке
}

TBookS Buf = new TBookS;

//---------------------------------------------------------------------------
 
#ifndef ClasssH
#define ClasssH
//---------------------------------------------------------------------------
#include <Classes.hpp>
 
//---------------------------------------------------------------------------
[COLOR="Red"][B]class TBookS[/B][/COLOR] //Библиотечный перечень
{
public: // User declarations
TBookS(void); //Конструктор информации о книге
//Первичные данные
AnsiString way_to_the_book; //Путь к книге
AnsiString way_to_the_cover; //Путь к обложке
//подробности о книге
AnsiString name; //Название
AnsiString author; //Автор
AnsiString publishing_house; //Издательство
int year_of_publication; //Год издания
int pages; //Кол-во страниц
AnsiString language; //Язык
};
//---------------------------------------------------------------------------
class Tlibrary_list //список книг
{
private: // User declarations
int kolvo; // кол-во книг в списке
public: // User declarations
TBookS *BookS; // динамический массив книг
int Count (void); // возвращает кол-во
void AddBook (const AnsiString way_to_the_book,
 const AnsiString way_to_the_cover,
 const AnsiString name,
 const AnsiString author,
 const AnsiString publishing_house,
 const int year_of_publication,
 const int pages,
 const AnsiString language); // добавить книгу
void DelBook (const int Index); // Удалить книгу
 
Tlibrary_list(void); //Консутруктор списка книг
~Tlibrary_list(void); //Диструктор списка книг
};
//---------------------------------------------------------------------------
#endif

#pragma hdrstop
 
#include "Classs.h"
 
 
//---------------------------------------------------------------------------
 
#pragma package(smart_init)
//---------------------------------------------------------------------------
TBookS::TBookS (void) // конструктор информации о книге
{
//Первичные данные
way_to_the_book=GetCurrentDir()+"\\"; //Путь к книге
way_to_the_cover=GetCurrentDir()+"\\"; //Путь к обложке
//подробности о книге
name="Книга"; //Название
author="Автор"; //Автор
publishing_house="Издательство"; //Издательство
year_of_publication=2011; //Год издания
pages=0; //Кол-во страниц
language="Русский"; //Язык
}
//---------------------------------------------------------------------------
Tlibrary_list::Tlibrary_list (void) //Консутруктор списка книг
{
kolvo = 0; // кол-во книг в списке
BookS= new TBookS[kolvo+1]; // объявление динамического массива книг
}
//---------------------------------------------------------------------------
Tlibrary_list::~Tlibrary_list (void) // диструктор списка книг
{
for(int i=0; i>=kolvo+1; i++)
{delete [] BookS;} // удаление динамического массива книг
kolvo = 0; // кол-во книг в списке
}
//---------------------------------------------------------------------------
void Tlibrary_list::AddBook (const AnsiString way_to_the_book,const AnsiString way_to_the_cover,const AnsiString name,const AnsiString author,const AnsiString publishing_house,const int year_of_publication,const int pages,const AnsiString language)
{
TBookS Buf; //Временный объект хранения данных по книге
Buf.way_to_the_book=way_to_the_book; //Путь к книге
Buf.way_to_the_cover=way_to_the_cover; //Путь к обложке
Buf.name=name; //Название
Buf.author=author; //Автор
Buf.publishing_house=publishing_house; //Издательство
Buf.year_of_publication=year_of_publication; //Год издания
Buf.pages=pages; //Кол-во страниц
Buf.language=language; //Язык
BookS = (TBookS*)ReallocMemory(BookS, (kolvo+1)*sizeof(Buf)); // переопределение размера массива
[COLOR="red"][B]BookS[kolvo] = Buf; //Внесение данных в динамический массив[/B][/COLOR]
kolvo=kolvo+1; // кол-во книг в списке
}
//---------------------------------------------------------------------------
void Tlibrary_list::DelBook (const int Index) //удаление книги
{
BookS[Index] = TBookS(); //Определение индекса книги в динамическом массиве
kolvo--; //кол-во книг
for(int i=Index; i<kolvo; i++) //цикл сдвига массива на удаленные данные книги
BookS[i]=BookS[i+1]; //сдвиг массива на удаленные данные книги
if (kolvo > 0)
BookS = (TBookS*)ReallocMemory(BookS, kolvo); // переопределение размера массива
}
//---------------------------------------------------------------------------
int Tlibrary_list::Count (void) // плучение колличества книг
{
return kolvo; //колличество книг
}
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include "Classs.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
Tlibrary_list library;
//---------------------------------------------------------------------------
void __fastcall TForm2::FormShow(TObject *Sender)
{
for(int i=1; i<=4; i++)
{
ShowMessage(library.Count());
library.AddBook("1","1","1","1","1",1,1,"1");
}}
//-------------------------------------------------------------------------