Código Delphi [-] if not (key in ['a'..'z','A'..'Z', #7, #8, #13]) then begin Key := #0; Beep; end;
if not (key in ['a'..'z','A'..'Z', #7, #8, #13]) then begin Key := #0; Beep; end;