Copiar registro de una Tabla a otra Tabla, sin repetirse

[Crashthebig]

deberas declarar la tabla de la que copiaras los datos con el nombre: tblsource, y la tabla a la que copiaras los datos con el nombre de: tbldest.

y copia este codigo en algun boton

Código Delphi [-]
 var
   i : integer;
   fldDest, fldSource : TField;
 begin
   with tblDest do begin
     Append;
     for i := 0 to FieldCount - 1 do
     begin
       fldDest := Fields[i];
       if not (fldDest.ReadOnly or fldDest.Calculated) then
       begin
         fldSource := tblSource.FindField(fldDest.FieldName);
         if assigned(fldSource) then
         begin
           fldDest.DataSet.Edit;
           fldDest.AsString := fldSource.AsString
         end
       end
     end;
   {Post}
   end

esta sentencia copiara el registro activo de la tabla tblsource a la tabla tbldest