Error Key Violation al copiar tablas

[Mathom]

Hola a todos, os comento a ver si me podéis indicar a que es debido un error. Os explico. Tengo una tabla en una dirección con alias (AAA) y al pulsar un botón quiero que dicha tabla se me copie en otra dir. con alias (BBB). Bien, el dódigo que utilizo es el siguiente:

procedure TFormPrincipal.Realizarcopia1Click(Sender: TObject);
begin
DM.TblDep_seg.Insert;
DM.TblDep_seg.FieldByName('Nombre').AsString := DM.TblDep.fieldbyname('Nombre').AsString;
DM.TblDep_seg.FieldByName('Cod_dep').AsString := DM.TblDep.fieldbyname('Cod_dep').AsString;
DM.TTblDep_seg.Post;
DM.TblDep_seg.Refresh;
end;

El campo "Cod_dep" es clave primaria. Tanto Cod_dep como Nombre son String´s y la tablas son Paradox.

Bien, pues cuando pulso dicho botón me aparece el mensaje de error "Key Violation". Tiene que ver con la clave primaria?? que estoy haciendo mal??

Gracias de antemano y un saludo.