Delphi - errores en delphi7

Estoy realizando una aplicación con delphi7 y oracle y deseo capturar los errores pero no hay manera ya que entra en el procedimiento posterror, pero no me pasa por la condición. Pongo el código para que alguien me diga si está bien o no, o como hacerlo.
Gracias por adelantado.

procedure TAltasAcuerdos.SimpleDataSet3PostError(DataSet: TDataSet;
E: EDatabaseError; var Action: TDataAction);
begin
if (E is EDBEngineError) then
if (E as EDBEngineError).Errors[0].ErrorCode = ekeyviol then
begin
Application.MessageBox('Imposible dar alta al registro ya existe','Atención',MB_OK +
MB_ICONQUESTION);
Abort;
end;
end;

Posiblemente el error en primer lugar no es un EDBEngineError, puede ser de otra clase... Ademas estas usando BDE con oracle o otra cosa?

estoy usando dbexpress.