Ввод русских букв

function vvod(s:char):Boolean;
var mas:string;
i:byte;
begin
 
  if s in [ 'A'..'z','А'..'я','Ё','ё',#08] = True then
    result:=true
  else  result:=false;
 
end;

procedure Tglavmenu.DBEdit6KeyPress(Sender: TObject; var Key: Char);
begin
if vvod(key)=true then
begin
key:=AnsiUpperCase(key)[1];
end
else
key:=#0;
end;

function vvod(s:char):Boolean;
var mas:string;
i:byte;
begin
  
  mas:='йцукенгшщзхъфывапролджэячсмитьбюёЙЦУКЕНГШЩЗХЪФЫВАПРОЛДЖЭЯЧСМИТЬБЮ';
  if s in ['A'..'z',#08] then result:=true
  else
  for i:=0 to Length(mas) do
  if s=mas[i] then result:=true
  else
  result:=false;
 
end;

function IsLetterKey(aKey : Char): boolean;
begin
  Result := aKey in [#8, 'a'..'z', 'A'..'Z', 'à'..'ÿ', 'À'..'ß'];
end;

  if not IsLetterKey(Key) then
  begin
    Key := #0;
    Beep;
  end;

if not (Key in ['0'..'9',  'A'..'Z', 'a'..'z', #8, #32 ]) then Key:=#0;

if not (Key in ['а'..'я', 'А'..'Я',  'A'..'Z', 'a'..'z', #8, #32 ]) then Key:=#0;

if s in ['1'..'9','!','@','#','$','%','^','&','*','(',')','-','=','_','+','`','~','/','?','.',',','<','>','[',']','{','}','"'] = True then
    result:=false
  else  result:=true;

if not (Key in ['а'..'я', 'А'..'Я',  'A'..'Z', 'a'..'z', #8, #32 ]) then Key:=#0

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if Key in ['0'..'9'] then Key:=#0;
end;
 
end.

function vvod(s: Char): Boolean;
  var
    mas: Ansistring;
   begin
    mas:=s;
    if AnsiChar(mas[1]) in ['A' .. 'z', 'А' .. 'я', 'Ё', 'ё', #08] = True then
      result := True
    else
     result := false;
   end;

function vvod(s:Ansistring):Boolean;
begin
    result:=AnsiChar(s[1]) in ['A' .. 'z', 'А' .. 'я', 'Ё', 'ё', #08];
end;