Error Key Violation al copiar tablas

[Mathom]

Ya estoy aquí, he estado probando y me compila pero después al intentar ejecutarlo se me cuelga, os indico el código a ver si sabeis que pasa...fijo que es un error en un while y no lo veo....

procedure TFormPrincipal.Realizarcopia1Click(Sender: TObject);
begin
  while not DM.TblDepartamentos_seg.Eof do
          DM.TblDepartamentos_seg.Delete;

  while not DM.TblDepartamentos.Eof do
    DM.TblDepartamentos_seg.Insert;
    DM.TblDepartamentos_seg.FieldByName('Nombre').AsString := DM.TblDepartamentos.fieldbyname('Nombre').AsString;
    DM.TblDepartamentos_seg.FieldByName('Cod_dep').AsString := DM.TblDepartamentos.fieldbyname('Cod_dep').AsString;
    DM.TblDepartamentos_seg.Post;
    DM.TblDepartamentos_seg.Refresh;
end;

Gracias por vuestra ayuda