гласные буквы в richedit

[stanislav_ivanovic]

помогите пожалуйста вывести в label скольлько гласных букв находится в richedit

[phomm]

Примерно так:

const vovels = ['a','i','o','e','y','u'];
var vovcnt: integer;
...
vovcnt := 0;
for i := 1 to length(richedit1.text) do
if richedit1.text[i] in vovels then inc(vovcnt);
label1.caption := inttostr(vovcnt);

[stanislav_ivanovic]

спасибо огромное