Capturar una excepcion en Delphi producida por FIREBIRD

[ozegarra]

Gracias muchachos por la ayuda.
Estuve intentando con el aplicationEvents y capturar el mensaje en el evento onExepcion pero no entra a ese evento. Derrepente estoy mostrando mal el mensaje desde firebird. Muestro un ejm. de codigo de mi procedimiento a ver si me pueden ayudar un pokito mas:

Código SQL [-]
if (Contador=0) then
   begin
   exception No_hay_Stock;
   /*suspend;*/
   end

y en delphi ejecutado el procedimiento asi:

Código Delphi [-]
ADOQuery_ActLocales.Active:=False;
    ADOQuery_ActLocales.Parameters.ParamByName('Accion').Value := Accion;
    ADOQuery_ActLocales.Parameters.ParamByName('Item').Value := EdtCodigo.Text);
    ADOQuery_ActLocales.Parameters.ParamByName('Cantidad').Value := EdtCantidad.Text;
    ADOQuery_ActLocales.ExecSQL;

Espero haber sido lo suficiente claro y me puedan ayudar.
Muchas gracias.


Oscar