DÚVIDA sobre geração de parcelas

var parcela,resposta,i:integer;
    fornecedor,referencia,documento,portador,observacao:string;
    valorconta,jurosN,multaN,juros,multa:real;
    dataconta:Tdatetime;
begin
   resposta := Application.MessageBox('Deseja gerar as parcelas dessa conta ?','Confirma?',4);
   if resposta = 6 then
   begin
      i := 1;

      dataconta  :=     Edit1.Value;
      referencia :=     Edit2.Value;
      documento  :=  Edit3.Value;
      valorconta :=   Edit4.top;                                                   <==================
      jurosN     := datamodule1.QuerPagarjuros.AsFloat;


      parcela    := datamodule1.QuerPagarqtdparcela.Value;

      datamodule1.QuerPagar.post;

      while i <= parcela do
      begin
        datamodule1.QuerPagar.insert;

        datamodule1.QuerPagardatavencimento.Value       := dataconta;
        datamodule1.QuerPagarhistorico.Value            := referencia;
        datamodule1.QuerPagartipdoc.Value               := documento;
        datamodule1.QuerPagardatavencimento.Value       := (date + ((i-1)*30));
        datamodule1.QuerPagarvalor.Value                := valorconta;
        datamodule1.QuerPagarjuros.AsFloat              := jurosN;



        datamodule1.QuerPagar.post;
        showmessage ('Parcela gerada');
        inc (i);
     end;
  end;
end;