* Merge fix 37000 for fbadmin AV in lazarus IDE

git-svn-id: branches/fixes_3_0@37857 -

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;