diff --git a/source/main.pas b/source/main.pas index 1243cad6..a0c92933 100644 --- a/source/main.pas +++ b/source/main.pas @@ -1175,8 +1175,10 @@ begin SetLength(FQueryGridResult.Columns, 0); // Closing connection - FMysqlConn.Disconnect; - FreeAndNil(FMysqlConn); + if Assigned(FMysqlConn) then begin + FMysqlConn.Disconnect; + FreeAndNil(FMysqlConn); + end; EnterCriticalSection(SqlMessagesLock); FreeAndNil(SqlMessages);