Código Delphi
[-]
procedure TVentas_b.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
Begin
if key > 31 then if not(chr(Key) in ['0','1', '2','3','4','5','6','7','8','9' ]) then
key := 0; end;
end.
Por cierto, si usa el portapapeles, si permitirá pegar letras
Un saludo