Поиск строк

TStringList *list = new TStringList;
    list->Text = mmo2->Text;
    mmo3->Lines->Add(list->Text);
    list->Sorted=True;
    String del;
    int a=0;
    for(int i = 0; i < list->Count; i++)
    {
        del = list->Strings[i];
 
        for(int y = 0; y < list->Count; y++)
        {
            if(list->Strings[y] == del)
            {
                list->Delete(y--);
                a++;
            }
        }
        list->Add(del + " кол. : " + a);
    a=0;
    }
 
    mmo1->Clear();
    mmo1->Text = list->Text;
    delete list;

class TMyStringList : public Classes::TStringList
{
public:
    virtual int __fastcall AddObject(const String S, TObject* AObject)
    {
        int Result;
        if ((Result = IndexOf(S)) == -1)
            Result = TStringList::AddObject(S, (TObject*)1);
        else
            Objects[Result] = (TObject*)(((int)Objects[Result] + 1));
        return Result;
    }
};
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    std::auto_ptr<TMyStringList> list(new TMyStringList); // поправил опечатку
    list->Sorted = True;
    list->Text = mmo2->Text;
 
    mmo1->Clear();
    for(int i = 0; i < list->Count; i++)
        mmo1->Lines->Add(list->Strings[i] + String().sprintf(" кол. %d", (int)list->Objects[i]));
}

std::auto_ptr<TMyStringList> list(new TMyStringList);