Delphi - CloneCursor

var vlClone  : TClientDataSet;
begin

   vlClone := TClientDataSet.Create(nil);
   vlClone.CloneCursor(<-- CLIENT ORIGEM -->, False, True);
   // Operações sobre o vlClone
   FreeAndNil(vlClone);