В тексте определить количество гласных букв в самом длинном слове

procedure TForm1.Button1Click(Sender: TObject);
const
  //Множество разделителей слов.
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
  //Множество гласных букв.
  Da = [
    //Русские гласные буквы.
    'А', 'Я', 'О', 'Ё', 'Ы', 'И', 'Э', 'Е', 'У', 'Ю',
    'а', 'я', 'о', 'ё', 'ы', 'и', 'э', 'е', 'у', 'ю',
    //Гласные буквы латиницы.
    'A', 'E', 'I', 'O', 'U', 'Y',
    'a', 'e', 'i', 'o', 'u', 'y'
  ];
var
  S : String;
  i, Len, LenW, LenM, PosM, CntM : Integer;
begin
  //Исходный текст.
  S := Memo1.Text;
 
  Len := Length(S);
  LenW := 0; //Длина очередного слова.
  LenM := 0; //Длина самого длинного слова.
  PosM := 0; //Позиция конца первого из самых длинных слов.
  for i := 1 to Len do begin
    //Пропускаем разделители.
    if S[i] in D then Continue;
    //Учитываем очередной символ в длине слова.
    Inc(LenW);
    //Отслеживаем конец слова.
    if (i = Len) or (S[i + 1] in D) then begin
      //Если текущее слово длиннее текущего самого длинного, то текущее слово
      //становится текущим самым длинным.
      if LenW > LenM then begin
        LenM := LenW;
        PosM := i;
      end;
      LenW := 0;
    end;
  end;
 
  //Количество гласных букв в первом самом длинном слове.
  CntM := 0;
  //Перебор букв в первом самом длинном слове и подсчёт количества гласных букв.
  for i := PosM downto PosM - LenM + 1 do
    if S[i] in Da then Inc(CntM);
 
  //Ответ.
  if PosM > 0 then
    ShowMessage('Первое из самых длинных слов: "'
      + Copy(S, PosM - LenM + 1, LenM) + '", количество гласных: ' + IntToStr(CntM))
  else
    ShowMessage('В тексте нет слов.');
end;