en resumen para aclarar
Código:
//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;