Copiar fields de uma query para um dataSet

procedure TExcelWriter.setDataSet(dataSet: TDataSet);
var
  dataSetProvider: TDataSetProvider;
  clientDataSet: TClientDataSet;
  i: Integer;
begin
  //Essa foi a única forma que encontrei de copiar os dados para o dataset local
  //Essa é uma forma de não depender de dataset externo.
  dataSetProvider := TDataSetProvider.Create(nil);
  dataSetProvider.DataSet := dataSet;
  clientDataSet := TClientDataSet.Create(nil);
  clientDataSet.SetProvider(dataSetProvider);
  clientDataSet.Active := True;
  for i := 0 to dataSet.FieldCount - 1 do
    clientDataSet.Fields[i].DisplayLabel := dataSet.Fields[i].DisplayLabel;
  Self.localDataSet := clientDataSet;
end;

  for i := 0 to dataSet.FieldCount - 1 do
    clientDataSet.Fields[i].DisplayLabel := dataSet.Fields[i].DisplayLabel;