Код вешает программу

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        AnsiString Path1 = "C:\\traf\\tariffsrv_flow.log.?";
        AnsiString zx;  // имя открываемого файла
        AnsiString temp; // формирует строку для записи в log
        char *stroka, *s_sesia, *s_in, *s_out, *st, *st1;
        TStringList*s1=new TStringList;  //В этом списке будет содержатся список всех файлов заданного расширения
        TStringList *list = new TStringList; //содержти содержимое файла
    //TStringList *words=new TStringList; //Содержит разбитые строки по словам
        TStringList *log=new TStringList; //Содержит нашу выборку
    TSearchRec sr1;
        int done = FindFirst( Path1, faAnyFile, sr1 );
        while(!done) {
              s1->Add(sr1.Name);
 
          done = FindNext(sr1);
        }
        FindClose(sr1);
 
        s_sesia = Edit1 -> Text.c_str();
        s_in = Edit2 -> Text.c_str();
        s_out = Edit3 -> Text.c_str();
 
        for(int i=0; i < s1 -> Count; i++) {  //Проходимся циклом по всему списку наших разархивироавнных файлов
        zx = zx + "C:\\traf\\" + s1 -> Strings[i];//Имя открываемого файла
        list->LoadFromFile(zx); //открываем файл для чтения
 
        for(int j=1; j < (list -> Count - 1); j+2) { /*Проходимся циклом по загруженному файлу со 2-го элемента до предпоследнего по строкам*/
            //words->Text=StringReplace(list -> Strings[j]," ","\n",TReplaceFlags()<<rfReplaceAll); /*Заменяем пробел на знак переноса строки */
                        //words содержит отдельные слова строки
                        stroka = list -> Strings[j].c_str();
                        st = strstr(stroka, s_sesia);
                        if (st){
                                stroka = list -> Strings[j+1].c_str();
                                st1 = strstr(stroka, s_in);
                                if (st1){
                                        temp = "--> " + list -> Strings[j];
                                        log -> Add(temp);
                                        log -> Add(list -> Strings[j+1]);
                                } else{
                                        temp = "<-- " + list -> Strings[j];
                                        log -> Add(temp);
                                        log -> Add(list -> Strings[j+1]);
                                }
                        }
        }
        delete list;        
        }
        log->SaveToFile("C:\\traf\\log.txt");
        delete log;
        delete s1;
}

Feb  8 06:00:00 work newsyslog[67489]: logfile turned over 
Feb  8 06:00:14 work zzzz[61715]: 10911767  7136556-L-18@192.168.23.45:1297136556   2011-02-08 06:00:14 234.95.225.155  234.95.225.155  11373118    234.95.225.155 
Feb  8 06:00:14 work zzzz[61715]: 10911767  12517284 
Feb  8 06:00:39 work zzzz[61715]: 10911768  7136556-L-18@234.95.225.155:1297136556  2011-02-08 06:00:39 212.85.121.59   234.95.225.155  11318388    234.95.225.155 
Feb  8 06:00:39 work zzzz[61715]: 10911768  12517284 
Feb  8 06:00:50 work zzzz[61715]: 10911769  7136402-L-16@234.95.225.155:1297136402  2011-02-08 06:00:50 234.95.225.155  234.95.225.155  624716  234.95.225.155 
Feb  8 06:00:50 work zzzz[61715]: 10911769  12517283 
Feb  8 06:00:52 work zzzz[61715]: 10911770  7136402-L-16@234.95.225.155:1297136402  2011-02-08 06:00:52 234.95.225.155  234.95.225.155  20475000    234.95.225.155 
Feb  8 06:00:52 work zzzz[61715]: 10911770  12517281  
Feb  9 06:00:00 work newsyslog[52354]: logfile turned over