Fórum Quando vou salvar os dados ele me me retorna,Key Violation. #170686

Quando vou salvar os dados ele me me retorna,
Key Violation.

procedure TGerenciadorCustomer.Button1Click(Sender: TObject);
begin
With DataModule1.CustomerTb do
begin
DataModule1.CustomerTb.Insert;
DataModule1.Database1.StartTransaction;
DataModule1.CustomerTb.fieldByName(´CustCod´).AsString:=Edit1.Text;
DataModule1.CustomerTb.fieldByName(´Nome´).AsString:=Edit2.Text;
if length(CGCCPF.Text)=14 then
CPFCNPJ:=LeftStr(CGCCPF.Text,3)+MidStr(CGCCPF.Text,5,3)+MidStr(CGCCPF.Text,9,3)+RightStr(CGCCPF.Text,2)
else
CPFCNPJ:=LeftStr(CGCCPF.Text,2)+MidStr(CGCCPF.Text,4,3)+MidStr(CGCCPF.Text,8,3)+MidStr(CGCCPF.Text,12,4)+RightStr(CGCCPF.Text,2);

DataModule1.CustomerTb.fieldByName(´CnpjCGC´).AsString:=CPFCNPJ;
DataModule1.CustomerTb.fieldByName(´Endereco´).AsString:=LabeledEdit1.Text;
DataModule1.CustomerTb.fieldByName(´Bairro´).AsString:=Edit4.Text;
DataModule1.CustomerTb.fieldByName(´Cidade´).AsString:=Edit5.Text;
DataModule1.CustomerTb.fieldByName(´UF´).AsString:=Edit6.Text;
DataModule1.CustomerTb.fieldByName(´CEP´).AsString:=MaskEdit10.Text;
DataModule1.CustomerTb.fieldByName(´FoneComercial´).AsString:=MaskEdit1.Text;
DataModule1.CustomerTb.fieldByName(´Ramal´).AsString:=Edit8.Text;
DataModule1.CustomerTb.fieldByName(´FoneResidencial´).AsString:=MaskEdit2.Text;
DataModule1.CustomerTb.fieldByName(´Celular´).AsString:=MaskEdit3.Text;
try
DataModule1.CustomerTb.ApplyUpdates;
DataModule1.Database1.Commit;
except
DataModule1.Database1.Rollback;
raise;
end;
CommitUpdates;
end;
end;