Codigo botao salvar está com algum erro

Tenho um banco com paradox, utilizando dbedits, datamodules, ttable e datasource.

Fiz os botoes pra incluir, alterar, excluir,salvar e cancelar.

O próprio usuário digita o código. Levei um certo tempo pra conseguir fazer com que o sistema não deixe o usuário repetir o mesmo código(chave primaria), porém, se eu for alterar somente um nome de um determinado cadastro, o sistema emite a mensagem dizendo que este código já esta cadastrado (porém eu não estou adicionando um novo cadastro e sim editando um já existente). Abaixo vai o código para quem quiser me ajudar.

procedure TFrmcadfunc.btnsalvarClick(Sender: TObject);
begin
If udmdados.tbdadosfuncCodfunc.IsNull =true then begin
showmessage (´Código não pode ser vazio!´);
dbedit1.SetFocus;
exit;
end;
If not udmdados.tbdadosfunccons.locate(´Codfunc´,dbedit1.Text,[])
then
begin
try
udmdados.tbdadosfunc.Append;
pdados.Enabled:=false;
btnincluir.Enabled:=true;
btnalterar.Enabled:=true;
btncancelar.Enabled:=false;
btnsalvar.Enabled:=false;
btnexcluir.Enabled:=true;
btnsair.Enabled:=true;
udmdados.tbdadosfunc.Cancel;
except
showmessage(´Errro ao gravar dados´);
end;
end
else begin
showmessage(´Código já existe!´);
dbedit1.SetFocus;
//udmdados.tbdadosfunc.Cancel;
end;
end;