Удаление строк

AnsiString SearchStr;
 
for(int i=0; i<Memo1->Lines->Count; i++){
   SearchStr = Memo1->Lines->Strings[i];
      
        for(int j=i+1; j<Memo1->Lines->Count; j++)
{
          if(Memo1->Lines->Strings[j].Pos(SearchStr))
             Memo1->Lines->Delete(i)
 
}//end for j
}//end for i

    TStringList * sh = new TStringList();
 
    for (int i = 0; i<Memo1->Lines->Count; i++)
    {
sh->Clear();
sh->Text = Memo1->Lines->Strings[i].LowerCase(); //
sh->Text = StringReplace(sh->Text, " ", "\n", TReplaceFlags() << rfReplaceAll);
 for (int ii=0; ii<Memo1->Lines->Count; ii++)
 {
 int mach = 0;
 if( ii!=i  )
             {
      for(int cq = 0; cq<sh->Count; cq++)
   {
  if (
  Memo1->Lines->Strings[ii].LowerCase().Pos(sh->Strings[cq]) !=0
     ) mach++;
   }
   if(mach==sh->Count)// если найденные все слова в поиске
   {
 Memo1->Lines->Strings[i]="*";// Memo1->Lines->Delete(i);
   }
             }
 }
 
    }
 
  sh=NULL;
  delete sh;

  if (
  Memo1->Lines->Strings[ii].LowerCase().Pos(sh->Strings[cq]) !=0
  && sh->Strings[cq].Length()>1// если больше одного символа
     ) mach++;

void __fastcall TForm2::Button1Click(TObject *Sender)
{
    TStringList * sh = new TStringList();
 
    for (int i = 0; i<Memo1->Lines->Count; i++)
    {
sh->Clear();
sh->Text = Memo1->Lines->Strings[i].LowerCase(); //
sh->Text = StringReplace(sh->Text, " ", "\n", TReplaceFlags() << rfReplaceAll);
 for (int ii=0; ii<Memo1->Lines->Count; ii++)
 {
 int mach = 0;
 if( ii!=i  )
             {
      for(int cq = 0; cq<sh->Count; cq++)
   {
  if (
  Memo1->Lines->Strings[ii].LowerCase().Pos(sh->Strings[cq]) !=0
  && sh->Strings[cq].Length()>1
     ) mach++;
   }
   if(mach==sh->Count)// если найденные все слова в поиске
   {
 Memo1->Lines->Strings[i]="*";// Memo1->Lines->Delete(i);
   }
             }
 }
 
    }
 
 
  delete sh;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    std::auto_ptr<TStringList> what(new TStringList); // #include <memory>
    std::auto_ptr<TStringList> loop(new TStringList);
    TSysCharSet ch; TStrings *L = Memo1->Lines;
 
    for (int i = 0; i < L->Count; i++)
    {
        what->Clear(); // я почему-то всегда был уверен, что это должно делаться автоматически в ExtractStrings, ан нет...
        ExtractStrings(ch << ' ', ch, L->Strings[i].LowerCase().c_str(), what.get());
        for (int j = 0; j < Memo1->Lines->Count; j++)
        {
            if (i == j || L->Strings[j] == "*") continue;
            loop->Clear();
            ExtractStrings(ch << ' ', ch, L->Strings[j].LowerCase().c_str(), loop.get());
            if (loop->Count > what->Count)
            {
                bool contained = true;
                for (int k = 0; contained && k < what->Count; contained = (loop->IndexOf(what->Strings[k++]) != -1));
                if (contained)
                {
                    L->Strings[i] = "*"; break;
                }
            }
        }
    }
}