var
  DLLRoutine: function(AppHandle:HWND; HostDb : TIBDatabase) : Boolean; stdcall;
  DLLHandle: THandle;
...
  DLLHandle := LoadLibrary(PChar(lib));
  try
    @DLLRoutine := GetProcAddress(DLLHandle, PChar(func));
    if Assigned(DLLRoutine) then
      DLLRoutine(Application.Handle, Base.ibCon)
    else
      MessageDlg('Динамическая функция ' + aRunStr + ' не найдена', mtInformation, [mbOK], 0);
  finally
    FreeLibrary(DLLHandle);
  end;

procedure MainDllProc(Reason: integer);
var
  i: integer;
begin
  // При загрузке DLL
  if (Reason = windows.DLL_PROCESS_ATTACH)
  then
    begin
      Base  := TBase.Create(Application);
      Res := TRes.Create(Application);
      dxInitializeGDIPlus;
    end;
  // При выгрузке DLL
  if (Reason = windows.DLL_PROCESS_DETACH)
  then
    begin
      ReleaseExceptionObject;
      dxFinalizeGDIPlus;
      with Application do
      begin
        for i := ComponentCount - 1 downto 0 do
        try
          if (Components[i] is TForm) then
            Components[i].Free;
        except
        end;
        for i := ComponentCount - 1 downto 0 do
        try
          if (Components[i] is TDataModule) then
          begin
            Components[i].Free;
          end;
        except
        end;
      end;
    end;
end;

    begin
      exception xxx_xxx;
    end

Module Load: OLEACC.dll. No Debug Info. Base Address: $6CC30000. Process XXX.exe (7884)
Thread Start: Thread ID: 5796. Process XXX.exe (7884)

        
try
  Base.itransStoredProc.Commit;
  Result := True;
except
   on E : EIBError do
   begin
     Result := False;
     Base.itransStoredProc.Rollback;
   end;
end;

try
  Base.itransStoredProc.Commit;
  Result := True;
except
   on E : EIBError do
   begin
     Result := False;
     Base.itransStoredProc.Rollback;
   end;
end;

    begin
      if not Base.itransStoredProc.InTransaction then
        Base.itransStoredProc.StartTransaction;

HostDb : TIBDatabase

HostDb : TIBDatabase

uses ..., IBSQLMonitor;
...
function DbInit(DB: TIBDatabase): boolean;
var
  i : integer;
begin
  result := false;
  if not base.ibcon.connected then
    base.ibcon := db;
  try
    base.ibcon.connected := true;
    DisableMonitoring; // Строчка, которая решила все проблемы =)
...