Código Delphi [-] If Key in ['0'..'9']=false then If Key<>#8 then key:=#0;
If Key in ['0'..'9']=false then If Key<>#8 then key:=#0;