Вывод сообщения с условиями при нажатии

[konfeta5]

Что нужно сделать?
На форме 3 элемента: MaskEdit1, BitBtn1, RadioButton1.
Необходимо при нажатии на кнопку: если отмечен radiobutton1 и если пользователь вводит в Edit русские буквы, то вывести сообщение об ошибке.
Мои попытки ведут к ошибке в строке "if vvv = TRusLetters then":

procedure TForm1.BitBtn1Click(Sender: TObject);
type
RusLett  = set of Char;
const
RusLetters: RusLet = ['А'..'я'];
var
vvv,vv:integer;
begin
  if radiobutton1.Checked = true then  // если отмечен
    //if Edit1.text:='А'..'Я' then        // если пользователь ввел буквы
    //vv:=form1.edit1.text;
    //vvv:=strtoint(vv);
    vv:=StrToInt(MaskEdit1.text);
    //if vvv='А'..'Я' then
    if vvv = RusLet then
    begin showmessage('Ошибка');
    abort;
    end;
end.

[FaTaL]

А что именно надо то? Проверяйте в TEdit.OnKeyPress, что то типо этого
If Key in RusLetters then ShowMessage('Ошибка');

[min@y™]

я ж тебе на соседнем форуме писал:

var
  Index: Integer;
const
  RusLetters: set of char = ['А'..'я', 'Ё', 'ё'];
begin
  if radiobutton1.Checked
    then for Index:= 1 to Length(Edit1.text) do
      if Edit1.text[Index] in RusLetters
        then begin
               showmessage('Ошибка');
               Break;
             end;
end;