Int(Rv) = (E96[i-1] * multi)
Kann nicht funktionieren, da beide intern nicht gleich aussehen, auch wenn du den Real nach Int castest. Als Workaround spontan das hier:
If Abs(RV - (E96[i-1] * multi)) < eps then
wobei eps in diesem Falle eine Konstante ist, die die Genauigkeit angiebt, bspw.
Delphi-Quellcode:
const
eps = 0.001; //<> 1E-3
Wobei es vermutlich auch noch andere Ansätze gibt...