Hola de nuevo.
Creo que mejor te dejo un ejemplo
Código Delphi
[-]
...
function NoSe(Dengr,Deje1,Deje2,Deje3,Deje4,Deje5,Deje6,Deje7: Double): Double;
begin
if Deje1/Dengr <= 0.4 then
Result := Deje1
else if Deje2/Dengr <=0.4 then
Result:= Deje2
else if Deje3/Dengr <= 0.4 then
Result:= Deje3
else if Deje4/Dengr <= 0.4 then
Result:= Deje4
else if Deje5/Dengr <= 0.4 then
Result:= Deje5
else if Deje6/Dengr <= 0.4 then
Result:= Deje6
else
Result:= Deje7;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
D,Dengr: Double;
begin
Dengr := 10;
D:= NoSe(Dengr,7,6,5,5,5,4,1);
ShowMessage(FloatToStr(D));
end;
Verás que la función devuelve 4, que es el primer número del parámetro que cumple la condicion. Ya que 4/10 es <= 0.4 y los predecesores no.
Un saludo.