--- ibx/trunk/examples/DBAdmin/MainFormUnit.pas	2018/12/06 15:48:55	262
+++ ibx/trunk/examples/DBAdmin/MainFormUnit.pas	2018/12/06 15:55:01	263
@@ -34,6 +34,7 @@ type
   TMainForm = class(TForm)
     AccessRightsPopup: TPopupMenu;
     AccessRightsSource: TDataSource;
+    ClientLibrary: TLabel;
     MenuItem20: TMenuItem;
     MenuItem21: TMenuItem;
     RunScript: TAction;
@@ -376,7 +377,7 @@ uses DataModule, ShutdownRegDlgUnit, Add
 procedure TMainForm.FormShow(Sender: TObject);
 begin
   {Set IB Exceptions to only show text message - omit SQLCode and Engine Code}
-  FirebirdAPI.GetStatus.SetIBDataBaseErrorMessages([ShowIBMessage]);
+  DatabaseData.IBDatabase1.FirebirdAPI.GetStatus.SetIBDataBaseErrorMessages([ShowIBMessage]);
   Application.ExceptionDialog := aedOkMessageBox;
   PageControl1.ActivePage := Properties;
   DatabaseData.AfterDBConnect := @HandleDBConnect;
@@ -1036,6 +1037,8 @@ begin
           DatabaseData.AuthMethod, DatabaseData.SecurityDatabase,DatabaseData.RoleName]);
   if assigned(PageControl1.ActivePage.OnShow) then
     PageControl1.ActivePage.OnShow(nil);
+  ClientLibrary.Caption := 'Firebird Client Library: ' + DatabaseData.IBDatabase1.FirebirdAPI.GetFBLibrary.GetLibraryFilePath +
+  ' (API Version = ' + DatabaseData.IBDatabase1.FirebirdAPI.GetImplementationVersion + ')';
 end;
 
 procedure TMainForm.LoadData;