ClientDataSet - transferindo os dados de qualquer dataset para um clientdataset sem usar provider

function GetData(ADataset: TDataset): OleVariant;

begin

  with TDatasetProvider.Create(nil) do

  try

    Dataset:=ADataset;

 Result:=Data;

  finally

    Free;

  end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  ClientDataset1.Data:=GetData(ADOTable1);

end;