Error al encriptar una cadena de texto

[fidel]

Hola.
Tengo este código para encriptar una cadena, que en Delphi me funciona bien, pero al intentar hacer lo mismo en Lazarus me da este error:

Código Delphi [-]
  for i := 1 to Length(sClave) do
    sClave[i] := Chr(Ord(sClave[i]) Xor $95);

Dynamic SQL Error
SQL error code = -303
Malformed string.

Alguna idea para corregirlo.
Gracias.