Как сделать что бы в listbox было типа заголовков, а в ValueListEditor содержание(что то типа бд)

void __fastcall TForm1::ListBox1Click(TObject *Sender)
{
ValueListEditor1->Strings->LoadFromFile(ListBox1->Items->Strings[ListBox1->ItemIndex]);  //Имя файла, который загружается - это выделенная строка в ЛистБоксе
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
Memo1->Lines->LoadFromFile("Имя вашего файла-данных"); //Загружаем в Memo1 нашу БД
}
//---------------------------------------------------------------------------

void __fastcall TForm1::ListBox1Click(TObject *Sender)
{
int pos,end;   //Эти позиция начала и конца блока, для того, чтобы выдрать между ними инфу
pos=Memo1->Text.Pos(ListBox1->Items->Strings[ListBox1->ItemIndex]+"{")+ListBox1->Items->Strings[ListBox1->ItemIndex].Length()+2;  //Определяем позицию открывающего блока
end=Memo1->Text.Pos("}"+ListBox1->Items->Strings[ListBox1->ItemIndex]);  //Теперь закрывающего блока
ValueListEditor1->Strings->Text=Memo1->Text.SubString(pos,end-pos);  //Теперь при помощи SubString достаем информацию между блоками
ValueListEditor1->Strings->Delete(0);  //Это сделано потому, что первая строка почему-то всегда пустая (в чемпричина я так и не понял)
}
//---------------------------------------------------------------------------