Delphi. Поиск самого длинного слова в строке

var
s, max:string;
list:TStrings;
i:Integer;
begin
list :=TStringList.Create;
s :=edt1.Text;
    ExtractStrings([';', ',','.','?','!',':',' '], [' '], PChar(s), list); // с учетом возможных разделителей
      max :=list[0]; //пусть первое слово имеет максимальную длину
    for i := 0 to list.Count-1 do
    begin
    if Length(list[i])>Length(max) then //сравниваем последующие слова с ним
     max :=list[i];
    end;
    ShowMessage('Самое длинное слово '+max+#10#13+'Количество букв: '+Inttostr(Length(max)));
    list.Free;
end;