нужна помощь в написании программки

void __fastcall TForm2::Button1Click(TObject *Sender)
{
  // создаем список строк 1
  TStringList list1 = new TStringList;
  // создаем список строк 2
  TStringList list2 = new TStringList;
  // создаем список строк 3
  TStringList list3 = new TStringList;
 
  // добавляем в список строки из Memo1  
  list1->Text = Memo1->Text;
  // добавляем в список строки из Memo2  
  list2->Text = Memo2->Text;
  int i,j,cnt1,cnt2; // объявляем переменные типа число :)
  // заносим в переменную количество строк в списке 1
  cnt1= list1->Count; 
  // заносим в переменную количество строк в списке 2
  cnt2= list2->Count;
  // объявляем переменную типа строка :)
  AnsiString txt;
  // заносим в переменную строку из базы
  // как - надеюсь, вы уже знаете
  txt = /*Ваше значение из базы*/;
  
  // перебираем в цикле строки списка 1
  for(i=0;i<cnt1;i++) {
    // если строка списка совпала
    // со строкой из базы
    if (list1->Strings[i] == txt) {
      // добавляем строку в список 3
      list3->Add(list1->Strings[i]);
    }
  }
  // сохраняем список 3 в файл
  list3->SaveToFile("c:yes.txt")
  // очищаем список
  list3->Clear();
  // перебираем в цикле строки списка 2
  for(j=0;j<cnt2;j++) {
    // если строка списка не (!) совпала
    // со строкой из базы
    if (list2->Strings[j] != txt) {
      // добавляем строку в список 3
      list3->Add(list2->Strings[j]);
    }
  }
  // сохраняем список 3 в файл
  list3->SaveToFile("c:no.txt")
  delete list1; // удаляем список 1
  list1 = NULL; // обнуляем указатель на список 1
  delete list2; // удаляем список 2
  list2 = NULL; // обнуляем указатель на список 2
  delete list3; // удаляем список 2
  list2 = NUL3; // обнуляем указатель на список 3
}

void __fastcall TForm2::Button1Click(TObject *Sender)
{
// На форме Button1, Memo1, Memo2, Edit1, Edit2, Edit3
// в Edit3 заносим номер строк, которые необходимо сравнить
  // создаем список строк 1
  TStringList list1 = new TStringList;
  // создаем список строк 2
  TStringList list2 = new TStringList;
  // создаем список строк 2
  TStringList list3 = new TStringList;
 
  // добавляем в список строки из Memo1  
  list1->Text = Memo1->Text;
  // добавляем в список строки из Memo2  
  list2->Text = Memo2->Text;
  // объявляем переменные типа число :)
  int i,j,cnt1,cnt1,str_number;
  // заносим в переменную количество строк в списке 1
  cnt1= list1->Count; 
  // заносим в переменную количество строк в списке 2
  cnt2= list2->Count;
  // объявляем переменную типа строка :)
  AnsiString txt,edt1,edt2;
  // присваваем переменной edt1 текст Эдита
  edt1 = Edit1->Text;
  // присваваем переменной edt2 текст Эдита
  edt2 = Edit2->Text;
  // присваваем переменной str_number текст Эдита
  str_number = IntToStr(Edit3->Text);
  // заносим в переменную строку из базы
  // как - надеюсь, вы уже знаете
  txt = /*Ваше значение из базы*/;
  
  // перебираем в цикле строки списка 1
  for(i=0;i<cnt1;i++) {
    // заносим строку в Эдит1
    // если строка есть в списке
    if (str_number < cnt1-1) { // нумерация в списке идет с 0
      // заносим
      edt1 = list1->Strings[str_number];
    }
    // если строки нет в списке
    else {
      // Показываем сообщение, чтобы избежать ошибки
      Show->Message("В списке № 1 искомая строка отсутствует."
                    "Возможно, необходимо ввести меньший номер.");
    }
    // если строка списка совпала
    // со строкой из базы
    if (list1->Strings[str_number] == txt) {
      // добавляем строку в список 3
      list3->Add(list1->Strings[i]);
    }
  }
  // сохраняем список 3 в файл
  list3->SaveToFile("c:yes.txt")
  // очищаем список
  list3->Clear();
   // перебираем в цикле строки списка 2
  for(j=0;j<cnt2;j++) {
    // заносим строку в Эдит
    // если строка есть в списке
    if (str_number <= cnt2-1) { // нумерация в списке идет с 0
      // заносим
      edt2 = list2->Strings[str_number];
    }
    // если строки нет в списке
    else {
      // Показываем сообщение, чтобы избежать ошибки
      Show->Message("В списке № 2 искомая строка отсутствует."
                    "Возможно, необходимо ввести меньший номер.");
    }
    // если строка списка не (!) совпала
    // со строкой из базы
    if (!list2->Strings[str_number] == txt) {
      // добавляем строку в список 3
      list3->Add(list2->Strings[j]);
    }
  }
  // сохраняем список 3 в файл
  list2->SaveToFile("c:no.txt")
  delete list1; // удаляем список 1
  list1 = NULL; // обнуляем указатель на список 1
  delete list2; // удаляем список 2
  list2 = NULL; // обнуляем указатель на список 2
  delete list3; // удаляем список 2
  list2 = NUL3; // обнуляем указатель на список 3
}