Посчитать количество гласных в тексте. Делфи

[Джей Харриссон]

Помогите пожалуйста. Есть текст вводимый пользователем в компонент Мемо. В нем надо посчитать количество гласных и вывести в другой компонент Мемо.

[newerow1989]

procedure TForm1.Button1Click(Sender: TObject);
var i,j,k:integer;
    s:string;
begin
   Memo2.Clear;
   k:=0;
   For i:=0 to Memo1.Lines.Count-1 do
   begin
      s:='';
      For j:=1 to Length(Memo1.Lines[i]) do
         If Memo1.Lines[i][j] in ['а','е','ё','и','о','у','ы','э','ю','я',
            'А','Е','Ё','И','О','У','Ы','Э','Ю','Я'] then
         begin
            Inc(k);
            s:=s+Memo1.Lines[i][j];
         end;
      Memo2.Lines.Add(s);
   end;
   Label1.Caption:=IntToStr(k);
end;

[Джей Харриссон]

Сообщение от newerow1989

procedure TForm1.Button1Click(Sender: TObject);
var i,j,k:integer;
    s:string;
begin
   Memo2.Clear;
   k:=0;
   For i:=0 to Memo1.Lines.Count-1 do
   begin
      s:='';
      For j:=1 to Length(Memo1.Lines[i]) do
         If Memo1.Lines[i][j] in ['а','е','ё','и','о','у','ы','э','ю','я',
            'А','Е','Ё','И','О','У','Ы','Э','Ю','Я'] then
         begin
            Inc(k);
            s:=s+Memo1.Lines[i][j];
         end;
      Memo2.Lines.Add(s);
   end;
   Label1.Caption:=IntToStr(k);
end;

Вау, спасибо большое

[newerow1989]

[digitalis]

А если текст английский? Или племени балуба ?

[Аватар]

Сообщение от digitalis

А если текст английский? Или племени балуба ?

иметь массив гласных всех языков мира. Множество не поможет )) Ну и делфи покруче седьмого