procedure TMainForm.FormCreate(Sender: TObject);
begin
GlobalExHandler:=TGlobalExHandler.Create;
Application.OnException := GlobalExHandler.HandlerProc;
end;
procedure TGlobalExHandler.HandlerProc(Sender: TObject; EInstance: Exception);
begin
if (EInstance is EDBEngineError) then
begin
case (EInstance as EDBEngineError).Errors[0].Errorcode of
9729:
...
else
...
end
else
...
end;