Конструкция case в событии OnKeyPress у поля ввода. Поясню:
Код:
case Key of //Key - знак нажатой клавиши
'0'..'9':;//если введённый знак в диапозоне от 0 до 9, то ничего не делать
#8://если код введённого знака равен 8 (кнопка Backspace),то ничего не делать
else//иначе
Key:=Chr(0)//Присваеваем Key нулевое значение Char
end;