Encryptacion con ORD

[gdlrinfo]

Estimados tengo una gran duda me estoy volviendo loco el tema es asi tengo un texto que tiene una serie de caracteres encriptados que lo encripto con la función ORD pero por ejemplo cuando encripta a la letra C me la pone como el símbolo œ ahora bien al desencriptar me trae uno símbolos raros lo cual antes lo hacia bien lo que noto que el problema esta al usar el not dejo un ejemplo!!!!

Código Delphi [-]
var
  CharIndex : integer;
begin
  Result := Value;
  for CharIndex := 1 to Length(Value) do
    Result[CharIndex] := chr(not(ord(Value[CharIndex])));
end;

atte. Gracias como siempre