Como copiar um registro de uma Tabela para outra ?

var
  cdsClone: TClientDataset;
  i: integer;
begin
  cdsClone := TClientDataset.Create(nil);
  cdsClone.FieldDefs.Assign( ADODataset.FieldDefs );
  // cria um dataset vazio com os mesmos campos
  // do dataset original (ADODataset)
  cdsClone.CreateDataset;

  // crio o registro ´clone´ com os mesmos valores do registro origem
  cdsClone.Append;
  for i := 0 to ADODataset.FieldCount -1 do
    if not ADODataset.Fields[i].IsNull then
      cdsClone.FieldByName(ADODataset.Fields[i].FieldName).Value := ADODataset.Fields[i].Value;
  cdsClone.Post;

  // agora reproduzo o clone no próprio ADODataset
  ADODataset.Append;
  for i := 0 to cdsClone.FieldCount -1 do
    if not cdsClone.Fields[i].IsNull then
      ADODataset.FieldByName(cdsClone.Fields[i].FieldName).Value := cdsClone.Fields[i].Value;
  ADODataset.Post;

  cdsClone.Free;
end;