with TDataSetField(dat_sets.Fields[dat_sets.FieldDefs.Count-1]).NestedDataSet do begin Insert; CopyFields(QWER2.FieldDefs.DataSet); Post; end;