Добавить новую строчку ListBox

[felicita_091]

Не могу добавить новую строчку ListBox
Вот код:

Form2->Edit1->Text = ComboBox1->Text;
     if (ListBox1->ItemIndex>=0)
       Form2->Edit2->Text = ListBox1->Items->Strings[ListBox1->ItemIndex];
     else Form2->Edit2->Text = "";
     Form2->Edit3->Text = "(путь к файлу)";
//Form1->Hide();
Form2->ShowModal();
   if (Form1->Tag) {
     int index_avt ;
     String eAvtor = Form2->Edit1->Text;
     String eList = Form2->Edit2->Text;
     String eFile = Form2->Edit3->Text;
     if ((index_avt=ComboBox1->Items->IndexOf(eAvtor))>=0) // автор найден
     {
        if (ListBox1->Items->IndexOf(eList)<0) // новое произведение
        {
          String stroka="", sekc="Line"+IntToStr(index_avt+1);
          for (int i=0;i<ListBox1->Items->Count;i++)
            stroka += ListBox1->Items->Strings[i]+"_";
          if (eList.Length()>0) stroka += eList+"_";
          pIni->WriteString(sekc,"List",stroka);
          pIni->UpdateFile();
          delete pIni;
          FormShow(0);
        }
     }
     else      // новый автор
     {
 
     }
   }

Дальше не знаю что добавить в новый автор...
Помогите, пожалуйста

[nick42]

     else      // новый автор
     {
       if (pIni) {
         int newIdx ; String sekc;
         newIdx = 1 + pIni->ReadInteger("CONF","Objem",0);
         sekc = "LINE"+IntToStr(newIdx);
         pIni->WriteInteger("CONF","Objem",newIdx);
         pIni->WriteString(sekc,"Avtor",eAvtor);
         pIni->WriteString(sekc,"List",eList+"_");
         pIni->WriteString(sekc,"File",eFile);
         pIni->UpdateFile();
       }
       FormShow(0);
       ComboBox1->ItemIndex = ComboBox1->Items->Count-1;
       ComboBox1Change(0);
     }