Código Delphi [-]begin if not key in ['0'..'9'] then key:=#0;
begin if not key in ['0'..'9'] then key:=#0;