a ver es algo asi
Código Delphi
[-]if Form2.ShowModal then
begin
Form1.MiDataSet.Insert;
Form1.Midataset.Fields[0].Value := Form2.Midataset.Fields[0].Value
Form1.Midataset.Fields[1].Value := Form2.Midataset.Fields[1].Value
Form1.Midataset.Fields[2].Value := Form2.Midataset.Fields[2].Value
Form1.Midataset.Fields[3].Value := Form2.Midataset.Fields[3].Value
....
Form1.Midataset.Fields[n].Value := Form2.Midataset.Fields[n].Value
Form1.MiDataSet.Post;
end;
a eso me refiero en mi post anterior no hay una funcion magica, al menos no que yo conozca, jejeje