with cds do
begin
Open;
Insert;
for I:=0 to fieldcount-1 do
if Fields[i].FieldKind = fkData then
Fields[I].Assign(aFromCDS.FindField(Fields[I].FieldName));
end;
with aToCDS do
begin
Insert;
for I:=0 to fieldcount-1 do
if Fields[i].FieldKind = fkData then
Fields[I].Assign(cds.FindField(Fields[I].FieldName));
end;