Ограничение на ввод символов

[ANTI1]

помогите пожалуйста ограничить сделать в программе ограничение...дело в том есть у меня код программы который я нашел на этом же сайте но там берутся все символы, а мне нужно чтобы программа брала тольво вот эти симболы "а б в г д е ё ж з и" програма вообше считает шифрование по методу виженера вот сам код..
шифрование:

procedure TForm1.Button1Click(Sender: TObject);

Var
res:String;
i,j:Word;
begin
If Edit1.Text='' then
  begin
  ShowMessage ('Не введен "ключ". Продолжение НЕВОЗМОЖНО!');
  Exit;
  end;
If Edit2.Text='' then
  begin
  ShowMessage ('Не введено "слово". Продолжение НЕВОЗМОЖНО!');
  Exit;
  end;
SetLength (res,Length (Edit2.Text)); {Динамически устанавливается длина строки "Edit2.Text" и динамический массив "res"}
i:=1;
j:=1;
Repeat
Res[i]:=Chr (Ord (Edit2.Text[i])+Ord(Edit1.Text[j]));
Inc (i);
Inc(j);
If j>length (Edit1.Text) then
j:=1;
Until i>Length (Edit2.Text);
Edit3.Text:=res;

рас шифрование: 

procedure TForm1.Button2Click(Sender: TObject);
Var
text:String;
i,j:Word;
begin
If Edit1.Text='' then
  begin
  ShowMessage ('Не введен "ключ". Продолжение НЕВОЗМОЖНО!');
  Exit;
  end;
If Edit2.Text='' then
  begin
  ShowMessage ('Не введено "слово". Продолжение НЕВОЗМОЖНО!');
  Exit;
  end;
SetLength (text,Length (Edit2.Text));
i:=1;
j:=1;
Repeat
text[i]:=Chr(Ord (Edit2.Text[i])-Ord (Edit1.Text[j]));
Inc(i);
Inc(j);
If j>Length (Edit1.Text)then
j:=1;
Until i>Length (Edit2.Text);
Edit4.Text:=text;

end;

[Dj_smart]

Можно пройтись циклом по всех символах и сравнить:

function checkwww(str:string):boolen;
var n:integer;
     s:string;
begin
  result:=true;
  for n:=1 to length(str) do begin
    s:=str[n];
    case s of
       'а' ,'б', 'в', 'г', 'д', 'е', 'ё', 'ж', 'з', 'и':{чтонибудь} else result:=false;
    end;
  end;
end;

То есть если хоть одна буква не из а...и то цикл будет испорчен.

[ANTI1]

Dj_smart спасибо тебе большое..но понимаешь такое дело я плоховато соображаю куда вставить этот осколок от проги чтобы она заработала.. ( если можешь выложи полность код со своим куском в нем...

[Dj_smart]

function checkwww(str:string):boolen;
var n:integer;
     s:string;
begin
  result:=true;
  for n:=1 to length(str) do begin
    s:=str[n];
    case s of
       'а' ,'б', 'в', 'г', 'д', 'е', 'ё', 'ж', 'з', 'и':{чтонибудь} else result:=false;
    end;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);

Var
res:String;
i,j:Word;
begin
If checkwww(Edit1.Text)=false then
  begin
  ShowMessage ('Ключ содержит недопустимые символы. Продолжение НЕВОЗМОЖНО!');
  Exit;
  end;
If checkwww(Edit2.Text)=false then
  begin
  ShowMessage ('Слово содержит недопустимые символы. Продолжение НЕВОЗМОЖНО!');
  Exit;
  end;
If Edit1.Text='' then
  begin
  ShowMessage ('Не введен "ключ". Продолжение НЕВОЗМОЖНО!');
  Exit;
  end;
If Edit2.Text='' then
  begin
  ShowMessage ('Не введено "слово". Продолжение НЕВОЗМОЖНО!');
  Exit;
  end;
SetLength (res,Length (Edit2.Text)); {Динамически устанавливается длина строки "Edit2.Text" и динамический массив "res"}
i:=1;
j:=1;
Repeat
Res[i]:=Chr (Ord (Edit2.Text[i])+Ord(Edit1.Text[j]));
Inc (i);
Inc(j);
If j>length (Edit1.Text) then
j:=1;
Until i>Length (Edit2.Text);
Edit3.Text:=res;

рас шифрование: 

procedure TForm1.Button2Click(Sender: TObject);
Var
text:String;
i,j:Word;
begin
If Edit1.Text='' then
  begin
  ShowMessage ('Не введен "ключ". Продолжение НЕВОЗМОЖНО!');
  Exit;
  end;
If Edit2.Text='' then
  begin
  ShowMessage ('Не введено "слово". Продолжение НЕВОЗМОЖНО!');
  Exit;
  end;
If checkwww(Edit1.Text)=false then
  begin
  ShowMessage ('Ключ содержит недопустимые символы. Продолжение НЕВОЗМОЖНО!');
  Exit;
  end;
If checkwww(Edit2.Text)=false then
  begin
  ShowMessage ('Слово содержит недопустимые символы. Продолжение НЕВОЗМОЖНО!');
  Exit;
  end;
SetLength (text,Length (Edit2.Text));
i:=1;
j:=1;
Repeat
text[i]:=Chr(Ord (Edit2.Text[i])-Ord (Edit1.Text[j]));
Inc(i);
Inc(j);
If j>Length (Edit1.Text)then
j:=1;
Until i>Length (Edit2.Text);
Edit4.Text:=text;
end;

кстати спасибо в карман не положишь)

[BOBAH13]

Так не относительно темы... а просто относительно синтаксиса...

'а' ,'б', 'в', 'г', 'д', 'е', 'ё', 'ж', 'з', 'и': заменить на 'a'..'и': лучше ведь смотрится ?