tratando de interceptar excepcion

[Cañones]

Código Delphi [-]
procedure TfrmFacturacion.CERRARTURNO1Click(Sender: TObject);
var
  E:EDataBaseError;
begin
  try
    DataModule1.IBQueryMarcTurno.Close;
    DataModule1.IBQueryMarcTurno.Open;
  except
    on E:exception do
        ShowMessage(e.Message);
  end;
end;

Aca lo que estoy tratando de hacer es que el query accione un trigger que me devuelve una exception. Hasta aca funciona, pero como hago para distingir una exception de otra cuando el Trigger me devuelve varias.
Estoy con Delphi 6 y Firebird 1.5.
La Exception en la base se llama EXC_TURNOS_COMPLETOS
Y EL NUMERO DE EXCEPCION ES 2.
Desde ya, muchas gracias.