gistfile1.pas

procedure criarDataSet(dsOrigem: TDataSet; cdsDest: TClientDataSet);
var
  Provider: TDataSetProvider;
begin
  Provider := TDataSetProvider.Create(nil);
  try
    Provider.DataSet := dsOrigem;
    criarDataSet(Provider, cdsDest);
  finally
    FreeAndNil(Provider);
  end;
end;

procedure criarDataSet(providerOrigem: TDataSetProvider; cdsDest: TClientDataSet);
begin
  cdsDest.Data := providerOrigem.Data;
end;