int fb_shutdown(unsigned int timeout, const int reason);

  fb_shutdown: function(timeout: Cardinal; const reason: Integer): Integer; stdcall;

procedure fbShutdown(const string aLibraryName);
var
  fbClientLibHandle: Cardinal;
  fb_shutdown: function(timeout, : Cardinal; const reason: Integer): Integer; stdcall;
  fSaved8087CW: Word;
begin
  // Деинициализация коннекта. Метод должен быть вызван перед завершением приложения
  // !!! не в секции finalization
  fSaved8087CW := Get8087CW();
  try
    fbClientLibHandle := LoadLibrary(PChar(aLibraryName));
    if fbClientLibHandle > 32 then begin
      fb_shutdown := GetProcAddress(fbClientLibHandle, 'fb_shutdown');
      if Assigned(fb_shutdown) then
        fb_shutdown(0, 1);
      FreeLibrary(fbClientLibHandle);
    end;
  finally
    Set8087CW(fSaved8087CW)
  end;
end;