Copiar Campos de un ClientDataSet a Otro

[roman]

¿No se podría con algo como esto?

var
  FieldDefSource: TFieldDef;
  FieldDefDest: TFieldDef;

begin
  FieldDefSource := ClientDataSet1.FieldDefs[1];

  FieldDefDest := ClientDataSet2.FieldDefs.AddFieldDef;
  FieldDefDest.Assign(FieldDefSource);
end;

// Saludos