为什么Delphi的Math.Payment函数返回负数

我正在尝试计算以下场景的每月付款:

5000美元的借款期限为3年,每月复利8.00%,到期日为1000美元。

/*
From Math.pas 
function Payment(Rate: Extended;
 NPeriods: Integer;
 const PresentValue: Extended;
 const FutureValue: Extended;
 PaymentTime: TPaymentTime): Extended;
*/

var
  Pmt : Extended;
begin
  Pmt := Payment(0.08/12,36,5000,1000,ptEndOfPeriod);
  Edit1.Text := FloatToStr(Pmt);
end

结果= -181.351526101918