блокировка кнопок

[Анастасия123456789]

вот мне нужно чтобы юзер токо нажимал от кнопки от 1 до 4 и все... я помню что было связано с key:=#0;

а ну еще тобы вводились токо цифры а не буквы...в общем

[alex_fcsm]

if not (key in ['0'..'9',#8]) then key:=#3;

- ввод цифр от 0 до 9 и возможность стирать

Также можно использовать Maskedit

[[Smarik]]

case key of
'1'..'4',#8:;
else key:=chr(0);
end;
прописывать в OnKeyPress вроде

[capta1n]

program pascall;
uses crt;
var
 c : char;
begin
 repeat
   c:=readkey;
   case c of
   '1'..'4' : write (c);
   #8 : begin
          write (c);
          clreol
        end
   end;
 until c=#27;
end.