Ya he encontrado uno de tus fallos:
Pones:
Código:
Function Pide_Poli( Lista: Array Of Double ): Double;
cuando debes poner:
Código:
Function Pide_Poli(var Lista: Array Of Double ): Double;
La variable lista la modificas dentro de tu función, por lo que debes pasarla como referencia (2º caso), mientras que lo que tú pones (1er. caso) es paso de variables como valor, por eso no te deja modificar su longitud.
Después de esa modificación, faltará saber si te da algún otro error.