Filtrar entrada de teclado

[[Lepe]]

Código Delphi [-]
procedure TVentas_b.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);

  Begin
    if key > 31 then // Dejamos que se pulsen teclas de control
      if not(chr(Key) in ['0','1', '2','3','4','5','6','7','8','9' ]) then
          key := 0; // esto es lo que faltaba, anulamos la tecla.
  end;
end.

Por cierto, si usa el portapapeles, si permitirá pegar letras

Un saludo