[[Lepe]]

Aqui tienes un esbozo.

Los arrays no tienen una asignación directa, puedes usar un bucle:

Código Delphi [-]
Procedure mio(a : array of string);
begin 
  SetLength(Aheader, high(a)); // igualo los tamaños de ambos arrays.
  for i:= low(a) to high(a) do
    aheader[i] := a[i];
end;

saludos