// Create cd2 DataSet
procedure TForm1.CreateDataSetClick(Sender: TObject);
begin
  cd2.FieldDefs.Assign(cd1.FieldDefs);
  cd2.CreateDataSet;
end;    // Get variant array from cd1 and append into cd2
procedure TForm1.GetRowClick(Sender: TObject);
var v: variant;
    s:string;
    i:integer;
begin
  for i := 0 to cd1.FieldCount-1 do s := s   cd1.Fields[i].FieldName ';';
  s := Copy(s,1,Length(s)-1);
  v := cd1[s];
  cd2.Append;
  cd2[s] := v;
  cd2.Post;
end;