procedure TForm1.Button1Click(Sender: TObject); var Ch: Char; begin Ch:= Edit1.Text[1]; Edit1.Text:= Succ(Ch); end;