[Mouse]

Вот что я сделал, вероятнее всего это неправильно, подскажите как правильно отредактировать что бы все заработало?

Код:

procedure TForm1.BZShClick(Sender: TObject);
var
  i:integer;
  alpha:array [0..32] of byte;
begin
  str1:=mzSh.Text;
  MZZash.Text:='';
  bl:=StrToInt(ESdv.Text);
  for i:=byte('a') to byte('я') do alpha[i]:=ord(i);
    mzZash.Text:=mzZash.Text+chr( (ord(str1[i])+bl) mod 224 );
end;

procedure TForm1.BZPozShClick(Sender: TObject);
var
  i:integer;
begin
  str1:=mzZash.Text;
  bl:=StrToInt(ESdv.Text);
  MZPozsh.Text:='';
  for i:=1 to length(str1) do
    MZPozsh.Text:=MZPozsh.Text+chr( (ord(str1[i])-(224)) mod 224);
end;