Como fazer um sistema de parcelas

Veja o código para usar..



procedure TForm1.BitBtn1Click(Sender: TObject);

var

i: integer;

Begin

T_parcela.Open; //Abro o Banco

i:=0; // Minha variável no caso i inicialmente é 0

for i := 1 to StrToInt(edParcela.Text) do  // minha variável recebe 1 do numero de parcelas no caso o digitado dentro de edParcela.Text

begin

//if T_parcela.RecordCount < i then // verifico o numero é menor do que o da variavel

T_parcela.Insert;  // se for insiro

//else  //senao edito

//T_parcela.Edit; //PARC vai receber o numero de parcelas que eu digitei

T_parcela.FieldByName('CCUSCRED').Value:='2080';

T_parcela.FieldByName('TEMPLO').Value:=edt_templo.Text;

T_parcela.FieldByName('CCUSDEB').Value:=edt_DEBITO.Text;

T_parcela.FieldByName('HISTORICO').Text:='CIMADB - '+edtministro.Text+' / PARC = '+ IntToStr(i);

//dm.cdsparcela.FieldByName('PARC').Value := i; //VALOR vai receber o valor digitado  dividido pelo numero de parcelas

T_parcela.FieldByName('VALOR').Value :=(StrToFloat(edtValor.Text)/StrToInt(edParcela.Text));

T_parcela.FieldByName('DATA').Value:= incMonth(Data2.Date, i - 1); //DATA recebe a data replicando conforme o numero das parcelas

T_parcela.FieldByName('QUANT').Value:='1';

T_parcela.FieldByName('NR_DOC').Value:='1';

T_parcela.Post;  //Gravo no banco

T_parcela.Next; //vou para o próximo

end;

//Dou um updade para gravar esse registro no banco lembre-se que quando

//T_parcela.; //ApplyUpdates(0) para gravar no banco o (0) significa o numero de erros

showmessage('Arquivo incuido com sucesso'); //Mando uma mensagem de texto

edtministro.Text:='';

edt_DEBITO.Text:='';

edt_templo.Text:='';

edt_templo.SetFocus;

end;