loop calcular parcela e data

Olá amigos tenho um formulario de pagamento se for a prestação coloco o numero de meses ele divide o valor na quantidate de meses, até ai tudo bem. agora quero joga p/ contas a receber só que tenho que colocar no codigo a baixo se for em 3 parcelas na parcela 1, data 01/02/09, mês data 2 01/03/09.....mês 3, data 01/03/09.
quero que ao clicar no botão joghue cada prestação para contas a receber com se respectivo numero de parcela e data do mês.


procedure TFPagamentos.BitBtn1Click(Sender: TObject);
begin

cdsreceber.open;

while Dm.Venda.Eof do
begin

CdsReceber.Insert;
CdsreceberIDREC.Value:=DM.Gera_Novo_codigo(´CONTASRECEBER´);
CdsReceberDESCRICAO.Value:=Dm.VendaCLIENTE.Value;
CdsReceberDATA.Value:=DM.vendaDATA_VENDA.Value;
CdsReceberVALOR.Value:=Dm.vendaNP.value;
CdsReceberOrigem.Value:=Dm.TIPOPAG.Value;
CdsReceberVALOR.Value:=StrToFloat(EdtParcela.text);
CdsReceberIDPED.Value:=Dm.PedidosIDPED.Value;
CdsReceber.POST;
CdsReceber.next;
CdsReceber.ApplyUpdates(0);
end;