diff options
-rw-r--r-- | packages/fcl-db/src/sqldb/interbase/fbadmin.pp | 4 |
1 files changed, 3 insertions, 1 deletions
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; |