Procedimiento completa de basura otras variables

[Enan0]

Empezado por adfa

1) el Randomize, en ningun lugar del procedimiento llamas a la funcion Random (lo unico que hace ahi es liar a quien intente ayudar, pero tu tendras tus motivos).

Para serte sincero, yo tampoco se para que lo hace.. pero bueno. ahi estaba desde antes, lo he corrido con el Randomize comentado, y la parecer no produce ningun cambio, (por lo menos no es lo que genera el error), asique no le preste mayor importancia.

Empezado por adfa

2) porque usar el setlength, y cargar la posicion no es lo mismo hacer:
pw := pw + char(len);

no, lo que pasaria ahi, es que Se inserta en el length +1, Ejemplo
(string orginal)

'ESTE ES MI STRING'

Si no me equivoco el length es 17, Si hago lo que vos decis seria!

'ESTE ES MI STRING17'
Y no podria completarlo con vasura!! ahora..
El "CPassEmailLen" Tiene una longitud de 50 Entonces Esto quedaria mas o menos asi.
'ESTE ES MI STRING (eL RESTDO DEL ESPACIO EN BLANCO) 17'

Empezado por adfa

3) el for me parece que debería de ser desde len+2

Bueno a ver ahora.. lo que hace en el for es esto!!
'ESTE ES MI STRING(length 17) a partir del 18, basura hasta el 50' entonces
'ESTE ES MI STRING@#~~#¬€~#@€¬~€¬¬¬€¬sdfasdfasdfsd(hasta 50)17'

Entonces ya se sabe que desde la Pos 17 el resto es todo Verdura...

Bueno espero haber aclarado y perdon, Si se mal interpreto lo del tamaño y la informacion
(talvez estaba un poquito caliente.. con esto que me tenia mal.)