Código Delphi [-]procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in['a'..'z','A'..'Z','Ñ','ñ']) then key:=#0; end;
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin if not (key in['a'..'z','A'..'Z','Ñ','ñ']) then key:=#0; end;