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
[-]
DBGrid2.DataSource.DataSet.First;
while not (DBGrid2.DataSource.DataSet.Eof) do begin
ADOTable1.Append;
ADOTable1.FieldByName('Campo1').AsString :=
DBGrid2.DataSource.DataSet.FieldByName('Campo1').AsString;
ADOTable1.FieldByName('Campo2').AsString :=
DBGrid2.DataSource.DataSet.FieldByName('Campo2').AsString;
ADOTable1.Post;
DBGrid2.DataSource.DataSet.Next;
end;