Código Delphi [-] if not (Key in ['0'..'9',#8]) or ((Key='0') and (Length(TEdit(Sender).Text)=0)) then begin Beep; Key:=#0; end;
if not (Key in ['0'..'9',#8]) or ((Key='0') and (Length(TEdit(Sender).Text)=0)) then begin Beep; Key:=#0; end;