Fórum key violation #174306

Como evitar a mensagem de erro Key Violation usando Query?
Já fiz o seguinte:

dentro do evento OnPostError da Query coloquei o seguinte codigo:

Var
ErroMens :String;
begin
ErroMens := E.Message;
if ErroMens = ´Key violation.´ then
begin ShowMessage(´Este Registro já é Cadastrado, Tente Outro !´);
action := daAbort;
end;
end;

Mas nao deu certo.
O que devo fazer?

Obrigado pela atenção!