Hola.
Si tienes:
Código Delphi
[-]
TPlaneta = record
Lat : Extended;
Lon : Extended;
Rad : Extended;
end;
TvPlaneta: array[1..9] of TPlaneta;
Puedes llamar a la función con cada miembro del arreglo, v. gr.:
Código Delphi
[-]
var
vp: TvPlaneta;
i: Integer;
begin
for i := 1 to 9 do
LBR_For_Sun(At_JDE , vp[i]);
...
Saludos