Множества

[Zmeeust]

Здравствуйте, уважаемые форумчане, столкнулся с следующей проблемой:
Нужно, используя множества, из строки выдернуть гласные буквы:
Вот собственно код:

procedure TForm27.Button1Click(Sender: TObject);
type
  letters = set of 'a'..'z';
var
  i:Integer;
  let:letters;
begin
  let:= ['а','и','о','у','ы','э','я','е','ю'];
  for i:=1 to Length(edit1.Text) do
  begin
  if edit1.Text[i] in let then
    Edit2.Text:=Edit2.Text+edit1.Text[i];
  end;

end;

На этапе сравнения с элементами множества, не выбирает не одной буквы.
Delphi xe3
Помогите пожалуйста разобраться.

[Скандербег]

Тип letters определен на множестве латинских букв, а в переменной let буквы русские. Непорядок.

type
  letters = set of 'а'..'я';

[BDA]

procedure TForm1.Button1Click(Sender: TObject);
const
  letters: TSysCharSet = ['а', 'и', 'о', 'у', 'ы', 'э', 'я', 'е', 'ю'];
var
  i: Integer;
  s: rawbytestring;
  r: string;
begin
  r := '';
  s := rawbytestring(Edit1.Text);
  for i := 1 to Length(s) do
  begin
    if charinset(s[i], letters) then
      r := r + s[i];
  end;
  Edit2.Text := r;
end;