[roman]

No veo para qué copiar caracter por caracter. Si aSerie contiene un caracter de terminación #0, se puede asignar directamente:

Código Delphi [-]
Cadena := aSerie;

Si no contiene caracter de terminación pero se sabe la longitud L que ocupa (no necesariamente L debe ser la longitud de aSerie) entonces se puede usar SetString directamente:

Código Delphi [-]
SetString(Cadena, aSerie, L);

// Saludos