[Neftali [Germán.Estévez]]

No me has contestado a las preguntas. ¿Lo has intentado? ¿Te da algun error?

Podría ser algo así; Aquí se accede al DataSet a partir del DGBrid, porque no acabo de enterder cómo lo has conectado, pero puedes sustituir el "DBGrid2.DataSource.DataSet" por el componente de DataSet que estés utilizando.

Código Delphi [-]
  // Ir al principio del DataSet
  DBGrid2.DataSource.DataSet.First;
  // recorrido
  while not (DBGrid2.DataSource.DataSet.Eof) do begin
    // preparar el Insert
    ADOTable1.Append;
    // Acceder a los campos y guardarlos en la tabla
    ADOTable1.FieldByName('Campo1').AsString :=
      DBGrid2.DataSource.DataSet.FieldByName('Campo1').AsString;
    ADOTable1.FieldByName('Campo2').AsString :=
      DBGrid2.DataSource.DataSet.FieldByName('Campo2').AsString;
    // Guardar el registro de la tabla
    ADOTable1.Post;
    // Siguiente
    DBGrid2.DataSource.DataSet.Next;
  end;