Código Delphi [-] var ch:Char; begin Ch := Edit1.Text[1]; Edit1.TExt := Succ(ch);
var ch:Char; begin Ch := Edit1.Text[1]; Edit1.TExt := Succ(ch);