Рекурсия. Не удается перевод функции с VBA на Delphi

[Sharamoff]

Имеется вот такая функция на VBA, которая имитирует итерационное вычисление в Excel:

Const ACCURACY = 0.001
Const ITERATIONS = 100

Function calcLoopPrice(zatr, dolemat, upr, rent, NDS)
  Delta = ACCURACY + 1
  i = 0
  uprSumPred = 0
  uprSumNew = 0
  Do While Delta > ACCURACY And i < ITERATIONS
    calcLoopPrice = (((zatr + uprSumNew) * (1 + (rent * (dolemat + (upr * dolemat / 100) - 0.2) / 100) / 100)) * (1 + NDS / 100))
    uprSumNew = calcLoopPrice * upr / 100
    Delta = Abs(uprSumNew - uprSumPred) / Abs(uprSumNew)
    i = i + 1
    uprSumPred = uprSumNew
  Loop
End Function

Все работает в Excel. Пытаюсь преобразовать эту функци. на Delphi 7 вот так:

const
  ACCURACY = 0.001;
  ITERATIONS = 100;

function calcLoopPrice(zatr:Real; dolemat:Real; upr:Real; rent:Real; NDS:Real): Real;
var
  i: byte;
  Delta, uprSumPred, uprSumNew: Real;
begin
  Delta := ACCURACY + 1;
  i := 0;
  uprSumPred := 0;
  uprSumNew := 0;
  While (Delta > ACCURACY)AND(i < ITERATIONS) do
    begin
    calcLoopPrice := (((zatr + uprSumNew) * (1 + (rent * (dolemat + (upr * dolemat / 100) - 0.2) / 100) / 100)) * (1 + NDS / 100));
    uprSumNew := calcLoopPrice(zatr, dolemat, upr, rent, NDS) * upr / 100;
    uprSumPred := uprSumNew;
    Delta := Abs(uprSumNew - uprSumPred) / Abs(uprSumNew);
    i := i + 1;
    end;
end;

И ничего не выходит. Цикл итерации игнорируется, отрабатываются только строчки calcLoopPrice := ... и uprSumNew := ...
uprSumNew не считается и так и остается = 0.
Ну и вываливается все в Stack Overflow т.к. не срабатывает выход из цикла.

Пытался отловить проблему упрощая цикл до примерно

for i := 1 to 3 do
begin
calcLoopPrice := (((zatr + uprSumNew) * (1 + (rent * (dolemat + (upr * dolemat / 100) - 0.2) / 100) / 100)) * (1 + NDS / 100));
    uprSumNew := calcLoopPrice(zatr, dolemat, upr, rent, NDS) * upr / 100;
end

цикл отрабатывает, функция считает, но все uprSumNew = 0. Т.е. не срабатывает рекурсия.
Но на VBA то все работает.
Помогите, люди добрые весь мозг сломал уже. Не такой уж я специалист по Delphi то. В интернетах все в примерах рекурсией фракталы считают, а вот такой бухгалтерской функции по расчету налогов и нету.
С уважением.

[Аватар]

В vba почти ничего, но там по моему и нет рекурсии

    Result := (((zatr + uprSumNew) * (1 + (rent * (dolemat + (upr * dolemat / 100) - 0.2) / 100) / 100)) * (1 + NDS / 100));
    uprSumNew := Result * upr / 100;

[Sharamoff]

Спасибо, все получилось.
Хотя точность вычисления получилась неудовлетворительной. Не сильно, но результат расходится с Excel.

[Аватар]

Extended вместо real попробуйте

[Sharamoff]

Пробовал Currency. Не очень.