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