Procedimiento completa de basura otras variables

[Enan0]

Hola Amigos ante todos Muchas gracias , aca ando un problemita!!
Tengo un procedimiento el cual completa con basura una variable de texto, de longitud definida, el problema es el siguiente. Luego de ejecutar dicho procedimiento, TODAS las variables que estubieran dentro del Procedimiento Padre/Abuelo, Son completados con basura.

lo solucione convirtiendolo en una Funcion, pero bueno dicho procedimiento ya estaba implementado. y no entiendo el porque de la destruccion de todas las variables.
el codigo

Código Delphi [-]

Procedure FillWithGarbageEmail(var pw: ShortString);
var
  Len, i: Integer;
begin
   Randomize;
   Len:=Length(pw);
   SetLength(pw,CPassEmailLen+1);//establece la nueva longitud
   pw[CPassEmailLen+1]:=Char(Len);//en el final incluye cual es el length del texto original
   for i:=Len+1 to CPassEmailLen do //luego de la longitud del string completa con basura
      pw[i]:=Chr(Ord(pw[i-Len])+(i*7)+2);
end;