* Fix from Michl to fix bug ID #32304

git-svn-id: trunk@37000 -

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;