Дана строка, состоящая из слов разделенных пробелами. Вывести на экран порядковый номер слова максмимальной дл

void __fastcall TForm1::FormCreate(TObject *Sender)
{
TStringList *list = new TStringList();
list->Clear();
list->DelimitedText = "заболел петух ангиной не поёт уж пятый год";
list->Delimiter = ' ';
int c = 0,d;
for(int i = 0; i < list->Count; i++)
{
    if(list->Strings[i].Length()>c)
    {
        c = list->Strings[i].Length();
        d = list->IndexOf(list->Strings[i]);
    }
}
 
ShowMessage("Самое длинное слово в предложении состоит из: " + IntToStr(c)+ " букв\nПорядковый номер слова: " + IntToStr(d+1));
 
delete list;
list = NULL;
}

int __fastcall LenSort(TStringList* List, int Index1, int Index2)
{
    return -CompareValue(List->Strings[Index1].Length(),
        List->Strings[Index2].Length());
}
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    String s = L"заболел петух ангиной не поёт уж пятый год";
    std::auto_ptr<TStringList>list(new TStringList);
    list->Delimiter = ' ';
    list->DelimitedText = s;
    list->CustomSort(LenSort);
    String longest = list->Strings[0];
    list->DelimitedText = s;
 
    ShowMessage(String().sprintf(
        L"Самое длинное слово в предложении состоит из: %d букв\n"
        L"Порядковый номер слова: %d\nНачальная позиция: %d", longest.Length(),
        list->IndexOf(longest) + 1, s.Pos(longest))
    );
}