Redimensionar un arreglo

[Julià T.]

en resumen para aclarar

//definición del tipo TLista
Type
 TLista=Array Of Double;
end;

procedure zzzzzz;
Var
 Lista:TLista;
begin
 SetLength(Lista,x); //deberemos indicar el tamaño para poder utilizarlo
 ...
 Pide_Poli(Lista);
end;

//en la función indicaremos que el array puede cambiar (paso por referéncia o variable)
function Pide_Poli(Var  Lista:TLista): Double; 
Begin
 SetLength(Lista,y);
end;