procedure batAppendRecords(TableFrom, TableTo : TTable);
var
   bMove    : TBatchMove;
begin
   bMove:= TBatchMove.Create(NIL);
   with bMove do try
      AbortOnKeyViol:= False;
      AbortOnProblem:= False;
      Source:=      TableFrom;
      Destination:= TableTo;
      Mode:=        batAppend;
      if TableTo.Active then TableTo.Refresh;
      Execute;
      if TableTo.Active then TableTo.FlushBuffers;
      if TableTo.Active then TableTo.Refresh;
   finally
      Free;
   end;
end;

procedure SaveSQL(vSQL : TQuery; DstDatabaseName, DstTableName : string);
var
   vTable : TTable;
begin
   vTable:= TTable.Create(NIL);
   try
      vTable.DatabaseName:= DstDatabaseName;
      vTable.TableName:=    DstTableName;
      vTable.FieldDefs.Assign(vSQL.FieldDefs);
      vTable.CreateTable;
      vTable.Open;
      batAppendRecords(TTable(vSQL), vTable);
      vTable.Close;
   finally
      vTable.Free;
   end;
end;

var vSQL : TQuery;

begin
   vSQL:= TQuery.Create(NIL);
   try
      vSQL.DatabaseName:= 'MYDB';
      vSQL.SQL.Add('select * from "Table1.db"');
      vSQL.Open;
      SaveSQL(vSQL, 'MYDB', 'Table2.db');
   finally
      vSQL.Free
   end;
end.