Foros Club Delphi - esta function no me funciona en XE2 y si funciona en D6

un saludo amigs

tengo estas 2 funciones para encriptar y desencriptar en D6 me funciona de maravilla, ahora que me actualice a XE2 no me llega a funcionar correctamente :(
ejemplo en XE2 le pido encriptar "Camino852" me da ䷔䷣䷨䷣䷧䷮䶢䷏䷧ y cuando lo quiero desencriptar no lo reconoce y me vuelve a devolver ䷔䷣䷨䷣䷧䷮䶢䷏䷧

en D6 utilizo la misma funcion sin tocar nada lo pedia encripar la misma palabra me da en diferentes caracteres y cuando lo pido desencriptar me devuelve la palabra correcta.

por favor ahi les dejo la funcion para que me den una mano.

Código Delphi [-]uses  Windows,Sysutils;
...
...

function encrip(sCadena: string): string;
var
  i:integer;
  sNewCadena:string;
  iLongitud:integer;
begin
  iLongitud := length(sCadena);
  SetLength(sNewCadena,iLongitud);
  for i := 1 to iLongitud do
    sNewCadena[i] := chr(ord(sCadena[i])+2012);

  Result := sNewCadena;
end;


function dencrip(sCadena: string): string;
var
  i:integer;
  sNewCadena:string;
  iLongitud:integer;
begin
  iLongitud := length(sCadena);
  SetLength(sNewCadena,iLongitud);
  for i := 1 to iLongitud do
    sNewCadena[i] := chr(ord(sCadena[i])-2012);

  Result := sNewCadena;
end;