Fórum While com erro #366893

Olá pessoal.

a situação é a seguinte: tenho duas tabelas (CADNP (pai) e PRNNP(filha)
c/ os seguintes dados, respectivamente:
NPNUM e NPNUM2
QTDNPS e QTDNP2
DTVECTO e DTVECTO2
VRPARCEL e VALORNP2
fiz:

procedure TForm1.BitBtn12Click(Sender: TObject);
var i, NP, QtdNPs : Integer;
ValorNP : Currency;
data : TDateTime;
begin
DataModule1.cdsCADNP.Open; DataModule1.cdsCADNP.Edit;
DataModule1.cdsPRNNP.Open; DataModule1.cdsPRNNP.Edit;

Data := DataModule1.cdsCADNPDTVECTO.AsDateTime;
QtdNPs := RxDBCalcEdit2.AsInteger;
ValorNP := RxDBCalcEdit3.Value;

for i := 1 to QtdNPs do
begin
data := IncMonth(data,1);
DataModule1.cdsPRNNP.Append;
DataModule1.cdsPRNNPNPNUM2.AsString := DataModule1.cdsCADNPNPNUM.AsString;
DataModule1.cdsPRNNPQTDNP2.AsString := DataModule1.cdsCADNPQTDNPS.AsString;
DataModule1.cdsPRNNPVALORNP2.Value := DataModule1.cdsCADNPVRPARCEL.Value;
//
DataModule1.cdsPRNNP.Open; DataModule1.cdsPRNNP.Edit;
End;
end;

Num exemplo, coloquei 6 como nº da quantiade de NPs a serem emitidas e no DBGrid só aparecem seis vezes o valor da NP.

As datas de vencimentos e nºs das NPs não aparecem no Grid.

O que está errado ou faltando ?

Obrigado por dicas e ajuda. eulicio.