Código Delphi [-] Table1.FieldByName('campo').ValidChars := ['0'..'9'];
Table1.FieldByName('campo').ValidChars := ['0'..'9'];