Buenas,
Lo que yo aría es primero convertir la función "
function LBR_For_Venus(At_JDE:extended):extended;" en un procedure. Deesta forma ya no devuelves los valores como resultados. Luego puedes hacer algo como lo siguiente para devolver los tres valores.
Código Delphi
[-]
procedure LBR_For_Venus(At_JDE:extended; out L: extended; out B: extended; out R: extended);
begin
.....
end;
Con lo anterior luego declaras las 3 variables que resiviran los datos del procedure se la pasas en los parámetros y las mismas tendrán los valores que necesitas.
Por otro lado en lugar de que el resultado sea un Extended puedes hacer que sea un record con los 3 valores.
Fijate cual te conviene mas para lo que necesitas.
Saludos,
El Rayo