[M.A.D.M.A.N.]

Код:

  sum1 ;= 0;
  for i := 1 to month do begin
    if i = 1 then ostn := summa else ostn := ostk; 
    vplpr := ostn * stavka / 12;
    pgdolg := summa/month;
    ostk := ostn - pgdolg;
    mesplatej:=vplpr+pgdolg;
    FCalc.SG.Cells[0,i]:= inttostr(i); 
    FCalc.SG.Cells[1,i]:= floattostrf(vplpr,ffFixed,6,2);
    sum1 := sum1 + vplpr;
    FCalc.SG.Cells[2,i]:= floattostrf(pgdolg,ffFixed,6,2);
    FCalc.SG.Cells[3,i]:= floattostrf(mesplatej,ffFixed,6,2);
    FCalc.SG.Cells[4,i]:= floattostrf(ostn,ffFixed,8,2);
    FCalc.SG.Cells[5,i]:= floattostrf(ostk,ffFixed,8,2);
  end;

ну как-то так наверное.