[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

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