Entonces, si declaras tu arreglo de planetas así:
Código Delphi
[-]
type
TPlanet = record
L,B,R: Extended;
end;
TvPlanet = array[1..9] of TPlanet;
De este modo podras cargar sus valores de una vez:
Código Delphi
[-]
procedure CargarPlanetas(At_JDE:extended; var v: TvPlanetas);
begin
LBR_For_Sun(At_JDE, v[1].L, v[1].B, v[1].R);
LBR_For_Mercury(At_JDE, v[2].L, v[2].B, v[2].R);
LBR_For_Venus(At_JDE, v[3].L, v[3].B, v[3].R);
LBR_For_Earth(At_JDE, v[4].L, v[4].B, v[4].R);
LBR_For_Mars(At_JDE, v[5].L, v[5].B, v[5].R);
LBR_For_Jupiter(At_JDE, v[6].L, v[6].B, v[6].R);
LBR_For_Saturn(At_JDE, v[7].L, v[7].B, v[7].R);
LBR_For_Uranus(At_JDE, v[8].L, v[8].B, v[8].R);
LBR_For_Neptune(At_JDE, v[9].L, v[9].B, v[9].R);
end;
Saludos