Кредитный калькулятор

[Liberman]

Вот пока, что есть. Сам расчет кредита работает, не получается реализовать распределение оплаты по месяцам в excel. При нажатии на кнопку у меня открывает эксель, выводит дату, а вот далее как все связать не могу додумать, подсчет по месяцам будет по принципу дифференцированного платежа, формула тут - http://calculator-credit.ru/articles/credit-calc.html , принцип работы калькулятора тоже там.
вот код даты:
Код Delphi
for i:=1 to strtoint(Edit2.Text) do
begin
exc_l.workbooks[1].worksheets[1].Range['A2'].NumberFormat:= 'ММ.ГГГГ';
exc_l.WorkBooks[1].WorkSheets[1].Range['A'+inttostr(i+2)].Value:='=a'+inttostr(i+1)+'+30';
end;
Помогите доделать пожалуйста, курсач сдавать нужно, а я застрял на этом месте уже несколько дней.