Estoy de acuerdo con coso.
En mi Builder 5 no puedo probar, Random no está implamentada y la función random del C no es adecuada. En delphi 6 si está implementada y supongo que en Builder 6.
Yo probaría con esto:
Código:
Result = Result +(char) (((BYTE)ToDecript[i]) ^ Random(256));
Saludos.