Задано целое число. Увеличить каждую цифру этого числа на 1.не могу исправить ошибки.посоветуйте

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    Edit2: TEdit;
    procedure Edit1Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
var
  inputstring: string;        
  massiv: array of string;    
      i: integer;
 
 
procedure TForm1.Edit1Change(Sender: TObject);
 
begin
 
  begin
    ReadLn(inputstring);
  end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
 
  begin
    SetLength(massiv, 225);   
 
    for i:=1 to Length(inputstring) do
      begin
        massiv[i] := inputstring[i] +1;==== тут ошибка..что с ордом что без него(
      end;
  end;
end;
 
procedure TForm1.Edit2Change(Sender: TObject);
begin
 
  begin
    for i:= 1 to Length(inputstring) do
      Write(string(massiv[i]));
  end;
 
end;
 
end.

massiv[i] := IntToStr(StrToInt(inputstring[i]) +1);