На самом деле вче довольно просто
Код:
procedure TForm.EditKeyPress(Sender: TObject; var Key: Char);
begin
if not(Key in ['0'..'9',chr(8),' ']) then
Key:=#0;
end;
chr(8) добавлено для того, чтобы работала кнопка backspace.
ЗЫЖ Если понадобится вводить не целые числа, то в допустимое множество нужно добавить DecimalSeperator
