Delphi - traduzir as excessoes

Primeiro você tem que traduzir os arquivos .Int do diretório 

Doc do Delphi, é ele que contêm as mensagens.

Depois de traduzir, acrescente um End. no final do arquivo e 

grave-o como .Pas

Coloque o arquivo no diretório Lib do Delphi e mande recompilar o seu

projeto com a opção Build All.

Além disso, vc pode querer traduzir também a propriedade 

DisplayLabel dos TFields para evitar que uma mensagem de 

violação de chave primária apareça assim:

Campo 'CodXXX' de chave primária duplicado !!!