Procedimiento completa de basura otras variables

[Enan0]

Hola Roman.. bueno en ningun momento quise crear una disputa y mucho menos hacer algo de mala gana, sino ni posteaba, el tema es que una funcion tan sencilla que genere este tipo de error, me llamo mucho la atencion, Asique perdon POr el embrollo.
El tema es que no se que otro codigo puedo Subir, Ya que eso es lo que genera el error. Bueno tome unos Screen shoots, de que es lo que hace cuando ejecuta el procedimiento de la discordia, como veran en el Watch, se ven los errores en cuestion.

Antes que nada lo que hace esta funcion es completar con basura un string encriptado.
Lo que hace es establecer una longitd preestablecida.

Código Delphi [-]
pw[CPassEmailLen+1]:=Char(Len);

Aca lo que hace es. en el Final de String, Guarda Cual es la Longitud Real del String (Sin Basura), para luego porder obtener solo la informacion valida.
Bueno Comento el Porque del SetLength: en este caso se esta completando con basura el String de un password de una cuenta de mail, El length que se esta asignando, es mucho mayor que el Length valido de un password.
Entonces. Seteo el nuevo length, en la posiscion final, almaceno la Longitud Real del Password, y luego se completa desde la el Length del PSW, hasta el final.

espero que sea mas claro y dejo las Imagenes del error

http://img174.imageshack.us/my.php?i...tura005fm7.jpg
http://img179.imageshack.us/my.php?i...tura006pv6.jpg