Código Delphi [-] procedure TForm.KeyPress(Sender: TObject; var Key: Char); begin if not (key in (['0'..'9',#8])) then key:=#0; end;
procedure TForm.KeyPress(Sender: TObject; var Key: Char); begin if not (key in (['0'..'9',#8])) then key:=#0; end;