Расчет платежей по кредиту - Delphi

[Dragon22895]

Здравствуйте! Помогите пожалуйста, нужно в приложении сделать график платежей по кредиту!
Сделал вот что:

procedure TForm7.Button4Click(Sender: TObject);
var
  sum, pr, plat: Extended;
  i, n, m: integer;
begin
listbox1.Clear;
sum:=StrToFloat(DBedit4.Text);
pr:=StrToFloat(DBedit7.Text);
m:=StrToInt(DBedit5.Text);
n:= m;
for i := 1 to n do
  begin
    plat:= sum/(m)*(1+pr/1200*(m+1-i));
    listbox1.Items.Add(IntToStr(i)+' платеж: '+FloatToStr(plat));
  end;
end;

Получается результат:
№платежа: "сумма"
как сделать чтобы еще выводил дату платежа и остаток задолженности:
№платежа: "сумма" "дата платежа" "остаток".
Помогите пожалуйста, 16 числа защита.
Заранее спасибо!



________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(это кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.