[Mouse]

Код:

procedure TForm1.BZShClick(Sender: TObject);
var
  i:integer;
  s: string;

begin
  newS.Text:='';
  for i:=0 to length(s)-1 do
  newS[i]:=byte(S[i]-221);
  //str1:=mzSh.Text;
  //MZZash.Text:='';
  //bl:=StrToInt(ESdv.Text);
  //for i:=1 to length(str1) do
    //mzZash.Text:=mzZash.Text+chr( (ord(str1[i])+bl) mod 256 );
end;