From 6513755e2eacc948b454fdbeaf9a889f2bc1b483 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Mon, 21 Aug 2017 06:42:35 +0000
Subject: [PATCH] * Fix from Michl to fix bug ID #32304

git-svn-id: trunk@37000 -
---
 packages/fcl-db/src/sqldb/interbase/fbadmin.pp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/packages/fcl-db/src/sqldb/interbase/fbadmin.pp b/packages/fcl-db/src/sqldb/interbase/fbadmin.pp
index 87f3139597..3dafa32e94 100644
--- a/packages/fcl-db/src/sqldb/interbase/fbadmin.pp
+++ b/packages/fcl-db/src/sqldb/interbase/fbadmin.pp
@@ -393,8 +393,10 @@ end;
 destructor TFBAdmin.Destroy;
 begin
   if FSvcHandle<>FB_API_NULLHANDLE then
-  WaitInterval:=100;
+  begin
+    WaitInterval:=100;
     DisConnect;
+  end;
   FOutput.Destroy;
   inherited Destroy;
 end;