[ecfisa]

Hola.

No entiendo bien la situación, pero supongo que tendrías que cambiar el tipo del argumento de la función, por ejemplo:

Código Delphi [-]
type
   TPlaneta = record
    Lat : Extended;
    Lon : Extended;
    Rad : Extended;
  end;


procedure LBR_For_Sun(At_JDE: Extended; var PL: TPlaneta);
begin
  // Operaciones inherentes a la función

  // ...

  // Asignar los valores obtenidos al registro
  PL.Lat := ...
  PL.Lon := ...
  PL.Rad := ...
end;

Saludos