Имя и директория файла

void __fastcall TForm1::Jnrj1Click(TObject *Sender)
{
 String nme="q",locc;
 int i,i2;
if (OpenTextFileDialog1->Execute()) {
        Memo1->Lines->LoadFromFile(OpenTextFileDialog1->FileName);
        locc=ExtractFileDir(OpenTextFileDialog1->FileName);              //1
       nme=ExtractFileName(OpenTextFileDialog1->FileName);              //2
 
       for (i = 0; i < ListBox1->Count; i++) {
 
 
        if (ListBox1->Items->Strings[i]==nme) {
            i2=i;
        }
       } 
       if (ListBox1->Items->Strings[i2]==nme) {
 
       }else ListBox1->Items->Add(nme);
}
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
     Label1->Caption = ListBox1->Items->IndexOf(Edit1->Text);
}

if (OpenTextFileDialog1->Execute()) {
        Memo1->Lines->LoadFromFile(OpenTextFileDialog1->FileName);
        locc=ExtractFileDir(OpenTextFileDialog1->FileName);              //1
       nme=ExtractFileName(OpenTextFileDialog1->FileName);              //2
//Вот до сюда все было понятно: 
//выбрали в диалоге файл. 
//загрузили его в Мемо, 
//разделили полное имя файла на путь и непосредственно имя
//и занесли их в разные переменные
 
//А вот дальше начинается бред, который Вам необходимо объяснить: 
//что Вы хотели этим добиться? 
       for (i = 0; i < ListBox1->Count; i++) {
 
 
        if (ListBox1->Items->Strings[i]==nme) {
            i2=i;
        }
       } 
       if (ListBox1->Items->Strings[i2]==nme) {
 
       }else ListBox1->Items->Add(nme);
}

for (i = 0; i < ListBox1->Count; i++) {
 
 
        if (ListBox1->Items->Strings[i]==nme) {
            i2=i;
        }
       } 
       if (ListBox1->Items->Strings[i2]==nme) {
 
       }else ListBox1->Items->Add(nme);

for (i = 0; i < ListBox1->Count; i++)
//организовали цикл по айтемам ЛистБокса... ладно (как я уже сказал, пока мы считаем, что записи в нем есть...)  
 {
    if (ListBox1->Items->Strings[i]==nme) 
//Если очередной из айтемов равен имени файла без пути
      {
            i2=i;
//тогда переменная i2 получает значение номера найденного айтема...
      }
 } 
//Оп-па... цикл закончился... И что мы имеем в сухом остатке?
//В лучшем случае, если что-то найдено, в переменной i2 содержится индекс айтема... 
//Если совпадений 2 или более - в i2 - индекс последнего из найденных
//А если нет?
//Если не один айтем не равен переменной nme, то i2 может быть равной либо 0, если была объявлена глобально
//либо может быть равна... А хрен знает - чему... Мусору какому-нибудь...
if (ListBox1->Items->Strings[i2]==nme)
//Опять проверяем, а вправду ли айтем с индексом i2 равен переменной nme
//Спрашивается - нафига? А если в предыдущем цикле ничего не было найдено и в i2 - просто мусор?
//Вот Вам еще один вылет программы! 
 {
//Но, даже если чудо случилось и программа до сих пор не вылетела (исчезающе малый процент вероятности)
//то что должно произойти??? Операторные скобки пусты! 
 }
//И, наконец, если таки ничего не найдено, если программа до сих пор работает, если...
//Тогда мы смело добавляем в ЛистБокс очередной айтем...
else ListBox1->Items->Add(nme);
//Уф-ф-ф!!!