Perdón, no sé donde puse la cabeza...
Olvida el mensaje anterior, debería haber sido:
Código Delphi
[-]
procedure CargarPlanetas(var VP: TvPlanetas);
begin
LBR_For_Sun(At_JDE, VP[1].Lat, VP[1].Lon, VP[1].Rad);
LBR_For_Mercury(At_JDE, VP[2].Lat,VP[2].Lon ,VP[2].Rad);
...
LBR_For_Uranus(At_JDE, VP[8].Lat, VP[8].Lon, VP[8].Rad);
LBR_For_Neptune(At_JDE,VP[9].Lat, VP[9].Lon, VP[9].Rad);
end;
Saludos