Запрет ввода в Edit

[Matrix6993]

Ребят, помогите пожалуйста с одной проблемой! я сделал защиту от ввода букв, символов и от всего такого вот:

Код:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key in ['a'..'z','A'..'Z','а'..'я','А'..'Я','ё',' ','.','+','-','*','/','=',')','(','&','^','%','$','#',' @','!',';',':','?','"','[',']','{','}','\','|','/','_','<','>','¦','№'] then key:=#0;
end;

Проблема в том, что русские буквы при любом случае вводятся почему. Кто нибудь помогите решить проблему!

[Matrix6993]

а все решил проблему, спасибо!

[Korben5E]

вроде разрешить только числа проще, чем перечислять всё подряд

[Matrix6993]

а как это сделать, подскажите пожалуйста!

[Dron97]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key in ['a'..'z','A'..'Z','а'..'я','А'..'Я' ,'ё',' ','.','+','-','*','/','=',')','(','&','^','%','$','#',' @','!',';',':','?','"','[',']','{','}','\','|','/','_','<','>','¦','№'] then key:=#0;
end;

Это все фигня. Выбери класс TMaskEdit (вкладка Additional) и в свойство EditMask введи 9999999999;0;*

[vovk]

Сообщение от Dron97

Это все фигня. Выбери класс TMaskEdit (вкладка Additional) и в свойство EditMask введи 9999999999;0;*

А вы думаете как MaskEdit обрабатывает ввод?
Это я на счет "фигни"

[OlegPrograming5]

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

Тогда будут вводиться только цифры.

[Matrix6993]

В таком варианте не работает Backspace. как исправить эту ситуацию.

[Пепел Феникса]

добавить в множество #9.
то есть

['0'..'9',#9]

[Matrix6993]

не работает всеравно (