Copiando ClientDataSet

Hoje tive que fazer algo não muito comun, copiar conteudo de uma ClientDataSet sem fazer vincula ao mesmo objeto, achei isso show de bola:

procedure ClonarDataSetSemVinculo(const pClientDataSet:TClientDataSet);
var
ClientDataSetTemp : TClientDataSet;
Data2 : OleVariant;

begin
try
ClientDataSetTemp := TClientDataSet.Create (nil);
ClientDataSetTemp.SetProvider(pClientDataset);
ClientDataSetTemp.Open;

Data2 := ClientDataSetTemp.Data;
ClientDataSetTemp.Close;
ClientDataSetDestino.Data := Data2;
end;