Hola Parabol77
Bueno, creo que el problema te lo estás haciendo con tanto
begin y
end innecesarios...
Basándome en la explicación, sería:
Código Delphi
[-]
...
if Deje1/Dengr <= 0.4 then
D := Deje1
else if Deje2/Dengr <=0.4 then
D:= Deje2
else if Deje3/Dengr <= 0.4 then
D:= Deje3
else if Deje4/Dengr <= 0.4 then
D:= Deje4
else if Deje5/Dengr <= 0.4 then
D:= Deje5
else if Deje6/Dengr <= 0.4 then
D:= Deje6
else
D:= Deje7;
...
Un saludo.