procedure batAppendRecords(TableFrom, TableTo : TTable);
var
   bMove    : TBatchMove;
begin
   bMove:= TBatchMove.Create({TableTo.Owner}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;