Procedimiento completa de basura otras variables

[adfa]

Hola Enan0, creo que la intención de Mick es ayudarte y no creo que la idea de el fueran muchos megas de código.

Hay cosas que no entiendo:
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).

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

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

Pero si decis que el código esta bien, basta para mi
Lo que no me doy cuenta porque decis que te completa el resto de las variable con basura, al menos no deberia.

Saludos desde la otra orilla.