Найти и записать в Memo слова содержащие более 3х гласных букв

procedure TForm1.Button1Click(Sender: TObject);
const
GlasnieSymb = ['à', 'å', '¸', 'è', 'î', 'ó', 'û', 'ý', 'þ', 'ÿ',
'À', 'Å', '¨', 'È', 'Î', 'Ó', 'Û', 'Ý', 'Þ', 'ß'];
var
s:string;
i,kolvo,glasnie:integer;
begin
s:=memo1.lines.Text;
glasnie := 0;
kolvo := 0;
for i:=1 to Length(s) do
begin
if s[i] in GlasnieSymb then inc(glasnie);
if (s[i]=' ') or (i=Length(s)) then
begin
if glasnie>3 then inc(kolvo);
glasnie:=0;
end;
end;
if kolvo>0 then
s:='Кол-во слов, в которых более 3 гласных: ' + IntToStr(kolvo)
else
s:='Слов, в которых более 3 гласных нет';
ShowMessage(s);
end;

procedure TForm1.Button1Click(Sender: TObject);
const  GlasnieSymb = ['а', 'е', 'ё', 'и', 'о', 'у', 'ы', 'э', 'ю', 'я',
'А', 'Е', 'Ё', 'И', 'О', 'У', 'Ы', 'Э', 'Ю', 'Я'];
var
s, sl:string;
i,kolvo,glasnie:integer;
begin
s:=memo1.lines.Text;
glasnie := 0;
kolvo := 0;
sl:='';
sn:='';
for i:=1 to Length(s) do
begin
sl:=sl+s[i];
if s[i] in GlasnieSymb then inc(glasnie);
if (s[i]=' ') or (i=Length(s)) then
  begin
  if glasnie>3 then
    begin
    inc(kolvo);
    Memo2.Lines.Add(sl);
    end;
  glasnie:=0;
  sl:='';
  end;
end;
if kolvo>0 then
s:='Кол-во слов, в которых более 3 гласных: ' + IntToStr(kolvo)
else
s:='Слов, в которых более 3 гласных нет';
ShowMessage(s);
 
end;