нужно подсчитать гласные буквы в тексте

Есть код который по заданной цифре находит слова , мне нужно подсчитать в этом слове гласные буквы
begin
fin:=TStringList.Create;
fin.LoadFromFile('fin.txt'); //подгружаем строки из файла. Файл в каталоге с программой
fin.Delimiter :=' '; //разделитель слов - пробел
fin.DelimitedText :=fin.Text; //разбиваем текст из файла на слова
for i := 0 to fin.Count-1 do //цикл
if StrToInt(Edit1.Text)-1=i then
begin
label3.caption:=(inttostr(i+1)+'-е слова предложения: '+'"'+fin+'"');
break;

end;
if Strtoint(edit1.text)>fin.Count then
showMessage('Слова с таким номерам не существует');