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

    TStringList *list = new TStringList;
    list->Text = Memo7->Text;
    AnsiString temp;
 
    // удаление одинаковых строк
    for(int i = 0; i < list->Count; i++)
    {
        temp = list->Strings[i]; // берем строку
        for(int w = 0; w < list->Count; w++)
        {
            // сравниваем с каждой строкой
            if(list->Strings[w] == temp)
            {
                // если совпало, то удаляем
                list->Delete(w--);
            }
        }
        // т.к. все такие строки удалили, то записываем ее обратно
        list->Add(temp);
    }
 
    Memo7->Text = list->Text;
    list->Text = "";
    delete list;

    std::auto_ptr<TStringList> list(new TStringList());
    list->Duplicates = dupIgnore;
    list->Sorted = true;
    list->AddStrings(Memo_1->Lines);
    Memo_1->Lines->Assign(list.get());

    TStringList *list = new TStringList;
    list->Text = Memo4->Text;
    list->Duplicates=dupIgnore;
    list->Sorted=True;
    AnsiString del;
    for(int i = 0; i < list->Count; i++)
    {
        del = list->Strings[i].Trim();
        for(int y = 0; y < list->Count; y++)
        {
            if(list->Strings[y].Trim() == del.Trim())
            {
                list->Delete(y--);
            }
           // Application->ProcessMessages();
        }
        list->Add(del);
    }
    Memo6->Clear();
    Memo6->Text = list->Text;
    delete list;

    TStringList *list = new TStringList;
    list->Text = Memo4->Text;
 
    std::auto_ptr<TStringList> t(new TStringList);
    t->Sorted = true;
    t->Duplicates = dupIgnore;
    for(int i = 0; i < list->Count; i++)
        t->Add(list->Strings[i].Trim());
 
    Memo6->Clear();
    Memo6->Text = t->Text;
    delete list;