pasaje de datos entre dbgrids

[[eduarcol]]

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