Delphi a C++

[Ledian_Fdez]

Tengo esta funcion en C++

String Encrypt(String texto)
{
 String Result="";
 int tamano = texto.Length();
 for (int i=0;i<tamano-1;i++)
 {
  Result = Result + char(Byte(texto[i]) + 255);
 }
 return Result;
}

El error es en tiempo de ejecución.
Por favor alguien podrá corregirmelo.

Error apunta a esta linea:

Result = Result + char(Byte(texto[i]) + 255);

"Project encripty.exe raised exception class EAccessVionlation with message 'Access violation at address 40009739 in module 'rtl60bpl'. read of address 0000000. Process stopped. Use step or Run to continue."

También acepto una función donde pueda encriptar un texto, en este caso lo utilizo para la contraseña.

Salu2
Ledian