String, найти самое длинное слово(C++ Builder)

[KnightMrak]

Доброго времени суток.
Извиняюсь, если мой вопрос покажется тупым. Не могу реализовать нахождение самого длинного слова в предложении String.
Вот мои наработки. Прошу помогите исправить косяки.

void __fastcall TForm1::Button2Click(TObject *Sender)
{
AnsiString S=Edit3->Text;
S=S+" ";
int p=1,i, dl;
for(i=1; i<S.Length(); i++)
if(S[i]==' ')
        {
        dl=p-i;
        if(S.Length()>dl)
                {
                S.Delete(p, i-p+1);
                i=p-1;
                }
              }
Edit4->Text=S;
}

Заранее благодарен.

[Nuklon]

void get_maxword(AnsiString& dst, const AnsiString& src){
     const char* s = src.c_str();
     const char* a, *b, *f, *l;

     f = l = a = b = s;
     do {
             if(IsCharAlpha(*s))
                    b = s;
             else {
                    if((b - a) > (l - f)) {
                          f = a + 1;
                          l = b + 1;
                    }
                    a = s;
            }
     } while(*s++ != '\0');

     if((l - f) > 0)
            dst = AnsiString(f, l - f);
}



void __fastcall TForm1::Button1Click(TObject *Sender) {
    AnsiString s = "AAAA, ,ABBBBBBBBBBZ. [CC] HHHJ";
    AnsiString  d;
    get_maxword(d, s);
    ShowMessage(d);
}