[redlyon13]

Gracias Marcos, fijate que lo hice con el siguiente codigo

 Datasource2.DataSet.Active := true;
 Datasource1.DataSet.First;

[color = red] repeat
  Datasource2.DataSet.Append;
  AdodataSet2MP_clave.Value := AdoDataSet1MP_clave.Value;
  AdoDataset2LX_LOTE.Value  := AdoDAtaSet1MXR_NOLOTE.Value;
  AdoDataset2LX_Cantidad.Value := AdoDataset1MXR_cantidad.Value;
  AdoDataset2LX_CU.Value := AdoDataset1MXR_CUNIT.Value;
  Datasource1.DataSet.Edit;
  AdoDataset1MX_Transaccion.Value := true;
  Datasource1.DataSet.Post;
  DAtasource2.DataSet.Post;
  Datasource1.DataSet.Next;
 until Datasource1.DataSet.Eof = true;[/color]
 DataSource2.DataSet.active := false;
 DataSource1.DataSet.Active := false;
 DataSource1.DataSet.Active := true;

pero de todas formas me interesa ese codigo que me pasaste, ese codigo lo introduzco en un Dataset ?