Шифровка и расшифровка числа

var
  Form1: TForm1;
  alphabet: array[0..9] of String = ('рk', 'i7p', 'df', 'xc5', 'd3d', 'sw', 'nl9', 'BXs', 'lfO', '57v');
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
s, str : string;
i,j : integer;
begin
   s:= Edit1.Text;
  for i := 1 to Length(s) do
    for j := 1 to Length(alphabet) do
      if StrToInt(s[i]) = j then
        str:= str + alphabet[j];
  Edit2.Text :=  str
end;

var
  Form1: TForm1;
  alphabet: array[0..9] of String =
            ('рko', 'i7p', 'duf', 'xc5', 'd3d', 's0w', 'nl9', 'BXs', 'lfO', '57v');
  str:string;
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
var
s: string;
i,j : integer;
begin
s:= Edit1.Text;
for i := 1 to Length(s) do
for j := 0 to Length(alphabet) do //здесь у Вас ошибка
if StrToInt(s[i]) = j then
str:= str + alphabet[j];
Edit2.Text:=str
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var i,j:integer;
    s,s1:string;
begin
s:='';
i:=1;
while i<=length(str)-2 do
 begin
  s1:=copy(str,i,3);
  j:=0;
  while (j<=9)and(s1<>alphabet[j])do inc(j);
  s:=s+inttostr(j);
  i:=i+3;
 end;
Edit3.Text:=s;
end;