Подсчитать, сколько слов в тексте имеют удвоенные сочетания букв

void __fastcall TForm1::btnTestClick(TObject *Sender)
{
    int pos, counter=0;
    //В стринглисте будем хранить отдельные слова исходного предложеня
    TStringList *str = new TStringList;
    //Сохраняем исходное предложение
    String temp = ed1->Text;
    do //Цикл до тех пор, пока есть что обрезать
    {
        //Ищем первый пробел
        pos = ed1->Text.Pos(' ');
        //Добавляем все до пробела в первое слово
        str->Add(ed1->Text.SubString(1,pos));
        //Отрезаем первое слово от предложения
        ed1->Text = ed1->Text.SubString(pos+1, ed1->Text.Length());
    }while(pos);
    //Вот тут очевидно какая-то ошибка у меня, т.к. тут в стринглист добавляется
    //лишний пробел, который я удаляю в данной строке
    str->Delete(str->Count-1);
    //остаток предложения - это последнее слово
    str->Add(ed1->Text);
    //Цикл по всем словам
    for(int i = 0; i<str->Count; ++i)
    {
        String curr = str[0][i];
        //Цикл по всем буквам в слове
        for(int j = 0; j<curr.Length(); ++j)
        {
            //Проверка на удвоенные буквы, если находим, то плюсуем счетчик
            if(curr.Length() > 1 && curr.c_str()[j]==curr.c_str()[j+1]) {counter++; break;}
        }
    }
    //Вывод счетчика на форму во 2 едит
    ed2->Text = counter;
    //Восстановление исходной фразы в первом едите
    ed1->Text = temp;
    //Освобождение выделенной памяти
    delete str;
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    std::auto_ptr<TStringList> L(new TStringList); // или TStringList *L = new TStringList; + delete
    L->Delimiter = ' '; // слова разделяются пробелами
    L->DelimitedText = Edit1->Text;
    int count = 0;
    for(int i = 0; i < L->Count; i++)
    {
        bool b = false;
        String s = L->Strings[i];
        for(int j = 1; j < s.Length(); j++)
            b |= (s[j] == s[j + 1]);
        if(b) count += 1;
    }
    Edit2->Text = IntToStr(count);
}