Geração de Parcelas ao Salvar

Alguem pode me ajudar com este codigo qro que ele de um post no primeiro registro e nos outros depois ..

with dmDados do

begin

 cdsReceber.Close;

 cdsReceber.Open;

 cdsReceber.Append;

 frmCadReceber := TfrmCadReceber.Create(Self);

 if frmCadReceber.ShowModal = mrOk then

 begin

 Parcela := cdsReceberREC_PARCELA.AsInteger;

 valorParcela := cdsReceberREC_VALOR.AsCurrency / Parcela;

 for I := 1 to Parcela do

 begin

 while I = 1 do

 begin

 cdsReceberCODRECEBER.AsInteger := GerarCodigoReceber;

 cdsReceberREC_VALOR.AsCurrency := valorParcela;

 cdsReceber.Post;

 end;

 cdsReceber.Open;

 cdsReceber.Append;

 cdsReceberCODRECEBER.AsInteger := GerarCodigoReceber;

 cdsReceber.Post;

 end;

 end;

 end;