Procedimiento completa de basura otras variables

[roman]

Como ya te han dicho, no se trata de que subas todo el programa, pero deberías poner más empeño en establecer información que pueda servir para ayudarte. Por ejemplo, yo veo muy raro que uses SetLength para una variable de tipo ShortString ya que éstas, si bien son de longitud variable, ocupan un espacio fijo en memoria de 256 bytes, y desconozco qué puede suceder si pasas un valor mayor a SetLength. Como no has dicho de dónde sale la variable CPassEmailLen (es más, ni siquiera sabemos si es una variable o una constante) pues tampoco podemos saber si por ahí viene realmente el problema.

// Saludos

[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