Capturar Error Access

[n03l]

Buenas quisiera q me echaran una mano con respecto a la captura de errores en una base datos accesss, estoy utilizando un ADOQuery y en el evento OnpostError coloco el siguiente codigo que vi en otro post del foro, pero este no me funciona
Código Delphi

if (E is EDBEngineError) then
begin
Label1.Caption := IntToStr(EDBEngineError(e).Errors[0].Errorcode);
if EDBEngineError(e).Errors[0].ErrorCode =9729 then
begin
ShowMessage('Ya Existe');
Action := daAbort;
end end


no se xq me sigue enviando el mensaje predeterminado...

gracias de antemano

[enecumene]

Hola, intenta ponerlo en un bloque Try...Except:

Try
//codigo
Except
//Errores
end;

Saludos