Модуль: Math

Описание
Функция вычисляет общую сумму погашения кредита, выплачиваемую на каждом этапе (состоит из текущих выплат и процентов).

PresentValue - сумма заимствования.
NPeriods - срок выплаты кредита. Данный пармаметр указывается количество этапов выплаты (количество лет, кварталов, месяцев и т.д.).
FutureValue - оставшаяся сумма кредита по истечении указанного периода.
Rate - величина процентной ставки кредита (ежегодная, ежеквартальная, ежемесячная и т.д. в соответствии с единицей измерения периода времени).
Параметр PaymentTime определяет, как происходят платежи: в начале (PtStartOfPeriod) или в конце (ptEndOfPeriod) платежного периода.

Пример
var
   PaySum : Extended;
begin
  ...
   PaySum:= Payment(0.2, 1, 100, 0, ptEndOfPeriod);
      { PaySum:=-120 }
  ...
end;