Записать в переменную слово из файла

for(int i = 0; i < col; i++)
{
String s = Memo2->Lines->Strings[i]; //здесь присвоили что то s
sl->Delimiter = '  ';
sl->DelimitedText = s; //здесь разбили этот текст в sl
Sl->Add(s);
}
Memo2->Lines->Clear();
for (int i=0; i < sl->Count; i++)
{
Memo2->Lines->Add(sl->Strings[i]); //и здесь вывели sl
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
TStringList *SL=new TStringList;  //Наш StringList
SL->DelimitedText=Memo1->Text; //В него взяли текст из Memo и разбили
Memo2->Text=SL->Text; //Просто чтобы Вы видели какая структура StringList
int n=2; //счетсчик смещения
for (int i=0; i<SL->Count; i++)
        {
if (i%n==0 && i>0){ //если это название книги
ListBox1->Items->Add(SL->Strings[i]); //добавили в лист бокс
n+=4; //увеличили смещение
           }
        }
delete SL;
}

#include<memory>
...
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  std::auto_ptr<TStringList>sl_0(new TStringList);
  std::auto_ptr<TStringList>sl_1(new TStringList);
  sl_0->LoadFromFile("c:\\1\\lib.txt");
  for(int i = 0; i < sl_0->Count; i++)
   {
     sl_1->Clear();
     sl_1->CommaText = sl_0->Strings[i];
     ListBox1->Items->Add(sl_1->Strings[2]);
   }
}

TStringList *Sl = new TStringList;
TStringList *sl = new TStringList();
 
Sl->LoadFromFile("Lib\\"+filename);
col = Sl->Count;
 
for(int i = 0; i < col; i++)
{
AnsiString s = Sl->Strings[i]; //ïðèñâîèëè ñòðîêó s
sl->Delimiter = ';';
sl->DelimitedText = s; //ðàçáèëè òåêñò â sl
 
for (int j=0; j < sl->Count; j++) // Этот цикл был расположен за циклом по i
{
Memo2->Lines->Add(sl->Strings[j]); // âûâåëè sl
}
}

ListBox1->Items->Clear();
Memo1->Lines->Clear();
 
AnsiString filename = ComboBox1->Items->Strings[ComboBox1->ItemIndex];
AnsiString cod;
 
TStringList *Sl = new TStringList;
TStringList *sl = new TStringList();
 
Sl->LoadFromFile("Lib\\"+filename);
col = Sl->Count;
 
for(int i = 0; i < col; i++)
{
AnsiString s = Sl->Strings[i]; //ïðèñâîèëè ñòðîêó s
sl->Delimiter = ';';
sl->DelimitedText = s; //ðàçáèëè òåêñò â sl
 
for (int j=0; j < sl->Count; j++)
{
Memo2->Lines->Add(sl->Strings[j]); // âûâåëè sl
}
}
 
col1=Memo2->Lines->Count;
a=col1;
bibl* bib = new bibl[col1];
int j=0;
for(int i=0;i<col;i++)
{
bib[i].id=Memo2->Lines->Strings[j].ToInt();
bib[i].name=Memo2->Lines->Strings[j+1];
bib[i].autor=Memo2->Lines->Strings[j+2];
bib[i].year=Memo2->Lines->Strings[j+3];
ListBox1->Items->Add(bib[i].name);
j=+4;
}
delete Sl;
delete sl;

private:    // User declarations
 
struct bibl
{
AnsiString name;
AnsiString autor;
AnsiString year;
int id;
};
int col1;
bibl* bib;
public:     // User declarations
        __fastcall TForm3(TComponent* Owner);
};

void __fastcall TForm3::ListBox1Click(TObject *Sender)
{
Memo1->Lines->Clear();
AnsiString filename = ListBox1->Items->Strings[ListBox1->ItemIndex];
Memo1->Lines->LoadFromFile("Book\\"+filename+".txt");   // загружаем
Edit1->Text=ListBox1->Items->Strings[ListBox1->ItemIndex];// выводим название (работает корректно)
 
/* После добавления Этого (ниже 2 строки) выдает ошибку :с  */
 
Edit2->Text=bib[ListBox1->ItemIndex].autor;
Edit3->Text=bib[ListBox1->ItemIndex].year;
 
}

struct bibl

Edit2->Text=bib[ListBox1->ItemIndex].autor;

bib[ListBox1

Edit2->Text=bib[ListBox1->ItemIndex].autor; 
Edit3->Text=bib[ListBox1->ItemIndex].year;