Error en Función Encriptar y Desencriptar

[webmasterplc]

Buenas estoy tratando de usar esta función para encriptar y desencriptar datos de una tabla, pero me da un error al compilar
[DCC Error] Unit1.pas(27): E2003 Undeclared identifier: 'Str255'

aca esta el codigo

Código Delphi [-]
Const CRIPTPASSWORD   = 9281711.00;

Var   KeyResult       : String;

Function CriptClave ( Signo:ShortInt;Nombre : Str255; Cripto: Real) : String;
Var L,I: Byte;
  S: String;
  Temp: Array[0..255] Of Byte Absolute Nombre;
Begin
  Str(Trunc(Cripto),S);
  L:=Length(Nombre);
  While Length(S)do
    S:=S+S;
  For I:=1 To L Do
    Temp[i]:=Temp[i] + (Ord(S[i])-48)*SigNo;
  CriptClave:= Nombre;
End { CriptClave };