Принципе немного непонятно как ты вводишь данные, но как я понел тебе надо просто сделать ограничение ввода на событие
OnKeyPress (т.е. когда ты вводишь) что-то наподобе этого:
begin
if not (key in ['0'..'9',#8]) then key:=#0;
end;
Поясняю, что тут идёт условие, которое проверяет входит ли в заданное подмножество символ или нет, если нет - нечего не происходит, иначе вводит. Значение #8 если мне не отказывает память - бакспейс. Принципе если интересно, ты можешь глянуть все значения
#[номер_клавишы] в программе с помощью обычного
showmessage, но думаю ты сам знаешь, как это делать да и принципе это уже не по этому вопросу.