como fazer multiplus lançamentos em outra tabela

[mossoroind]

Boa Noite.

Estou com dificuldade em fazer o processo de lançamento.

exp.

tabela de venda
tabela conta a receber

escolho 24 parcelas
1ª Vencimento 14/03/2013 as demais deve ser dividida entres as 23 parcelas restante
valor total 3.000,00 dever ser divido por 24 parcelas

Quando eu utilizo o modo de lançamento ele só lança uma parcela
não as 24 parcelas na contas a receber, aguem pode me ajuda

[mossoroind]

Boa Noite a Todos

depôs de Pesquisa Muito Esta o Codigo

var // declare essas variaveis pra facilitar a vida....rsrsrs
i, parcelas, parcela : integer;
valor, total : currency;
data : Tdatetime;

begin
{codificação...}


if TabGlobal.DCONTRATO_IMOBILIARIO.gparcela.Conteudo = 'S' then
begin
MessageDlg('Parcelas ja Geradas !', mtInformation, [mbOk], 0);
exit;
end;


if MessageDlg('Gera parcelas do Contrato Nº: '+FloatToStr(TabGlobal.DCONTRATO_IMOBILIARIO.n_contrato.Conteudo )+' ?', mtConfirmation, [mbYes, mbNo], 0) <> mrYes then
exit;


if TabGlobal.DCONTRATO_IMOBILIARIO.Modifica then
begin
TabGlobal.DCONTRATO_IMOBILIARIO.gparcela.Conteudo := 'S';
if TabGlobal.DCONTRATO_IMOBILIARIO.Salva then


// ** aqui cada variavel vai receber um valor ** //

begin
data := TabGlobal.DCONTRATO_IMOBILIARIO.Dt_Emissao.Conteudo; // recebe a data
parcelas := TabGlobal.DCONTRATO_IMOBILIARIO.Quant_parcelas.Conteudo ; // aqui recebe as parcelas
valor := TabGlobal.DCONTRATO_IMOBILIARIO.valor_contrato.Conteudo ; // aqui o valor total
total := valor / parcelas; // aqui eu divido o valor total pelo nº de parcelas
parcela :=0;
// ** agora vem a operação ** //

for i:= 1 to parcelas do // vai adicionar no banco a qtd de registros referente ao nº de parcelas
begin
parcela := parcela + 1; // aqui vai sair a qtd de parcela vou mostrar no grid
data := IncMonth(data,1); // aqui a data acrescida de um mes
TabGlobal.DReceber.Append;
TabGlobal.DReceber.n_contrato.Conteudo := TabGlobal.DCONTRATO_IMOBILIARIO.n_contrato.Conteudo;
TabGlobal.DReceber.Dt_Emissao.Conteudo := DataAtual;
TabGlobal.DReceber.N_doc.Conteudo := IntToStr(TabGlobal.DCONTRATO_IMOBILIARIO.n_contrato.Conteudo) +'-'+ IntToStr(i) ;
TabGlobal.DReceber.Codigo_cli.Conteudo := TabGlobal.DCONTRATO_IMOBILIARIO.Codigo_cli.Conteudo;
TabGlobal.DReceber.NOME_cli.Conteudo := TabGlobal.DCONTRATO_IMOBILIARIO.NOME_cli.Conteudo;
TabGlobal.DReceber.Quant_parcelas.Conteudo := TabGlobal.DCONTRATO_IMOBILIARIO.Quant_parcelas.Conteudo;
TabGlobal.DReceber.valor_contrato.Conteudo := TabGlobal.DCONTRATO_IMOBILIARIO.valor_contrato.Conteudo;
TabGlobal.DReceber.dt_1_parcela.Conteudo := TabGlobal.DCONTRATO_IMOBILIARIO.dt_1_parcela.Conteudo;
TabGlobal.DReceber.VALOR_PARCELA.Conteudo := total;
TabGlobal.DReceber.DT_VENCIENTO.Conteudo := data;
TabGlobal.DReceber.status_recebiento.Conteudo := IntToStr(2) ;
TabGlobal.DReceber.EMPRESA_USO.Conteudo := Sistema.NumeroUsr ;
TabGlobal.DReceber.post;

end ;
end;
end;
end;