[Mouse]

Код:

begin
  S:=newS.Text;
  for i:=0 to length(s)-1 do
  newS[i]:=byte(S[i]-221);

  //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;

lmikle: Пользуемся тегами!!!

Я к сожалению незнаю как исправить, по этому и прошу помоч.