[noveek]

Сообщение от AlexSku

Если символ это тип Char, то можно так:

Код:

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

Спасибо то что нужно наконецто грамотный человек