Как определить ошибку InterBase из Delphi?

[CRonaldo]

Как определить ошибку InterBase из Delphi?
Вариант уже есть, но кажется каким-то не грамотным:

Code: [Select]

try
...
except
    on E: Exception do
      begin
        if (Pos('Любую часть текста из сообщения исключения', E.Message)>0) then
          begin
            ...
            ShowMessage('Текст сообщения');
            ...
          end;
      end;
end;
Или же лучше вообще использовать исключения InterBase, т.е. что бы он сам их обрабатывал?