While não está gravando

Olá pessoal.

continuo minha briga aqui com um while (for).

ele não está gravando no destino. aliás, só grava o valor das NPs.

o nº delas e os seus vencimentos não.

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

ficou assim:

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;

 iF DataModule1.cdsCADNP.IsEmpty = False then

 Data := DBDateEdit2.Field.AsDateTime;

 QtdNPs := RxDBCalcEdit2.AsInteger;

 ValorNP := RxDBCalcEdit3.Value;

 for i := 1 to QtdNPs do

 begin

 data := IncMonth(data,1);

 DataModule1.cdsPRNNP.Insert;

 DataModule1.cdsPRNNPNPNUM2.AsString := DataModule1.cdsCADNPNPNUM.AsString;

 DataModule1.cdsPRNNPQTDNP2.AsString := DataModule1.cdsCADNPQTDNPS.AsString;

 DataModule1.cdsPRNNPVALORNP2.Value := DataModule1.cdsCADNPVRPARCEL.Value;

 //

 DataModule1.cdsPRNNP.Post;

 DataModule1.cdsPRNNP.ApplyUpdates(0);

 End;

end;

estou usando D7, Fb 2.1, IBExpert, DBExpress (UIB).

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.