Llenar array

[compuin]

Hola amigos, estoy tratando de crear un array de la siguiente forma

Código Delphi [-]
planet    : array[1..12] of double;

Código Delphi [-]
{ Calculo de los Planetas }
      for i := SE_SUN to SE_MEAN_NODE do
        begin
          swe_calc_ut(Date.JulDay, i, iflag, xx[0], serr);

          { Coordenadas Eclipticas }
          lg:= xx[0];    //Longitud
          lt:= xx[1];    //Latitud

          for i:= 1 to 12 do
               planet[i]:= xx[0];

Lo cieeto es que no funciona

Alguna sugerencia ?