DBGrid: Gravação no Banco de Dados

//cds02 já carregado
cds02.First;
cds01.Close;
cds01.CreateDataSet;

//Percorre os valores alimentados do cds02
while not cds02.eof do
begin
  //Aqui pode colocar algum filtro...
  cds01.insert;

  cds01CAMPO_1.value := cds02CAMPO_1.value;
  cds01CAMPO_2.value := cds02CAMPO_2.value;

  cds01.append;
  cds02.next;
end;

 if DBNavigator1.DataSource.DataSet.State in [dsInsert,dsEdit] then
   //Chama o código para gravar;

procedure TForm1.btnClonarRegistroClick(Sender: TObject);
var
 varCdsClne : TClientDataSet;
 varI       : Integer;
begin
  varCdsClne := TClientDataSet.Create(Self);
  try
    varCdsClne.CloneCursor(TClientDataSet(cds1), True);
    cds1.Append;
    for varI := 0 to cds1.FieldCount - 1 do
      begin
        if (cds1.Fields[varI].FieldKind = fkData) then
        cds1.Fields[varI].Value := varCdsClne.FieldByName(cds1.Fields[varI].FieldName).Value;  
      end;
  finally
    varCdsClne.Close;
    varCdsClne.Free;
  end;
end;

    DMForm.cdsColeta.FieldByName('CAMPO').AsFloat := StrToFloat(dbgColeta.Fields[1].Value);

    while not DMForm.cdsNotas.eof do
    begin
    //FILTRO SE NECESSÁRIO
    //DMForm.cdsColeta.Insert;
    DMForm.cdsColeta.Edit;

    //DMForm.cdsColeta.FieldByName('ORDEM_COLETA').AsFloat := StrToFloat(ORDEM_COLETA.Text);
      DMForm.cdsColeta.FieldByName('NOTA').Value := dbgColeta.Fields[1].Value;
      DMForm.cdsColeta.FieldByName('CLIENTE').Value := dbgColeta.Fields[2].Value;
      DMForm.cdsColeta.FieldByName('PEDIDO').Value := dbgColeta.Fields[3].Value;
      DMForm.cdsColeta.FieldByName('TIPO_SITU').Value := dbgColeta.Fields[4].Value;
      DMForm.cdsColeta.FieldByName('CLASS_NOTA').Value := dbgColeta.Fields[5].Value;
      DMForm.cdsColeta.FieldByName('CAIXA').Value := dbgColeta.Fields[6].Value;
      DMForm.cdsColeta.FieldByName('DATA_EMI').Value := dbgColeta.Fields[7].Value;
      DMForm.cdsColeta.FieldByName('NOTSERIE').Value := dbgColeta.Fields[8].Value;
      DMForm.cdsColeta.FieldByName('EMPRESA').Value :=     DMForm.sqlEmp.FieldByName('CODIGO').Value;//dbgColeta.Fields[9].Value;

      //DMForm.cdsColeta.Append;
      DMForm.cdsColeta.Post;
      DMForm.cdsNotas.Next;
    end;

procedure TForm7.BitBtn1Click(Sender: TObject);
var
  i : integer;
begin
    //Vou carregar seu Cds com exemplo
    cdsNotas.CreateDataSet;
    for i := 0 to 3 do
    begin
      cdsNotas.Append;
      cdsNotasCODIGO.Value := i;
      cdsNotas.Post;
    end;
    //Seta o primeiro registro do Cds que está ligado ao grid
    cdsNotas.First;

    cdsColeta.CreateDataSet;

    while not cdsNotas.eof do
    begin
      cdsColeta.Append;

      //Aqui serão os campos no qual quer manipular, do Grid(que está linkado no cdsNotas) para o cdsColeta
      cdsColetaCODIGO.Value := cdsNotasCODIGO.Value;

      cdsColeta.Post;

      //Mensagem só para confirmar os valores
      Showmessage('Valor do '+IntToStr(cdsColeta.RecNo)+'º registro do '+UpperCase(cdsColeta.Name)+': '+cdsColetaCODIGO.Text );
      cdsNotas.Next;
    end;
end;

procedure TForm7.BitBtn1Click(Sender: TObject);
var
  i : integer;
begin
    //Vou carregar seu Cds com exemplo
    cdsNotas.CreateDataSet;
    for i := 0 to 3 do
    begin
      cdsNotas.Append;
      cdsNotasCODIGO.Value := i;
      cdsNotas.Post;
    end;
    //Seta o primeiro registro do Cds que está ligado ao grid
    cdsNotas.First;

    cdsColeta.CreateDataSet;

    while not cdsNotas.eof do
    begin
      cdsColeta.Append;

      //Aqui serão os campos no qual quer manipular, do Grid(que está linkado no cdsNotas) para o cdsColeta
      cdsColetaCODIGO.Value := cdsNotasCODIGO.Value;

      cdsColeta.Post;

      //Mensagem só para confirmar os valores
      Showmessage('Valor do '+IntToStr(cdsColeta.RecNo)+'º registro do '+UpperCase(cdsColeta.Name)+': '+cdsColetaCODIGO.Text );
      cdsNotas.Next;
    end;
end;

procedure TForm1.btnGravarDoisClick(Sender: TObject);
var
  i : integer;
begin
  with DMForm do
  begin
    //Vou carregar seu Cds com exemplo
    cdsNotas.Close;
    cdsNotas.CreateDataSet;
    for i := 0 to 3 do
    begin
      cdsNotas.Append;
      //cdsNotasCODIGO.Value := i;
      DMForm.cdsNotas.FieldByName('NOTA').Value := i;
      cdsNotas.Post;
    end;
    //Seta o primeiro registro do Cds que está ligado ao grid
    cdsNotas.First;

    cdsColeta.CreateDataSet;

    while not cdsNotas.eof do
    begin
      cdsColeta.Append;

      //Aqui serão os campos no qual quer manipular, do Grid(que está linkado no cdsNotas) para o cdsColeta
      DMForm.cdsColeta.FieldByName('ORDEM_COLETA').Value := ORDEM_COLETA.Text;
      DMForm.cdsColeta.FieldByName('NOTA').Value := dbgNotas.Fields[0].Value;
      DMForm.cdsColeta.FieldByName('CLIENTE').Value := dbgNotas.Fields[1].Value;
      DMForm.cdsColeta.FieldByName('PEDIDO').Value := dbgNotas.Fields[2].Value;
      DMForm.cdsColeta.FieldByName('TIPO_SITU').Value := dbgNotas.Fields[3].Value;
      DMForm.cdsColeta.FieldByName('CLASS_NOTA').Value := dbgNotas.Fields[4].Value;
      DMForm.cdsColeta.FieldByName('CAIXA').Value := dbgNotas.Fields[5].Value;
      DMForm.cdsColeta.FieldByName('DATA_EMI').Value := dbgNotas.Fields[7].Value;
      DMForm.cdsColeta.FieldByName('NOTSERIE').Value := dbgNotas.Fields[8].Value;
      DMForm.cdsColeta.FieldByName('EMPRESA').Value := DMForm.sqlEmp.FieldByName('CODIGO').Value;

      cdsColeta.Post;

      //Mensagem só para confirmar os valores
      Showmessage('Valor do '+IntToStr(cdsColeta.RecNo)+'º registro do '+UpperCase(cdsColeta.Name)+': '+DMForm.cdsNotas.FieldByName('NOTA').Text );
      cdsNotas.Next;
    end;
  end;
end;

    begin

      cdsNotas.Append;

      //cdsNotasCODIGO.Value := i;

      DMForm.cdsNotas.FieldByName('NOTA').Value := i;

      cdsNotas.Post;

    end;

   for i := 0 to SelectedList.Count - 1 do
    begin
      GotoBookmark(SelectedList.items[i]);
      Freebookmark(SelectedList.items[i]);

      //Gravar número do Código selecionado
      Append;
      DMForm.cds02.FieldByName('CODIGO').AsFloat := StrToFloatDef(edtCodigo.Text, 0);
      Post;

      //Criar registro da coleta
      DMForm.cds01.Append;
      DMForm.cds01.FieldByName('CODIGO').Value := edtCodigo.Text;
     
      //Informações dos Edits
      DMForm.cds01.FieldByName('NOME').Value := edtNome.Text;

      DMForm.cds01.Post;
    end;