diff --git a/source/main.pas b/source/main.pas index d7622867..eac441b9 100644 --- a/source/main.pas +++ b/source/main.pas @@ -716,8 +716,6 @@ type EditVariableForm : TfrmEditVariable; FileNameSessionLog : String; FileHandleSessionLog : Textfile; - SqlMessages : TWideStringList; - SqlMessagesLock : TRtlCriticalSection; dsShowEngines, dsHaveEngines, dsCollations, @@ -1065,9 +1063,6 @@ var filename : String; begin DoDisconnect; - EnterCriticalSection(SqlMessagesLock); - FreeAndNil(SqlMessages); - LeaveCriticalSection(SqlMessagesLock); OpenRegistry; // Position of Toolbars @@ -1190,11 +1185,6 @@ begin CachedTableLists := TWideStringList.Create; - InitializeCriticalSection(SqlMessagesLock); - EnterCriticalSection(SqlMessagesLock); - SqlMessages := TWideStringList.Create; - LeaveCriticalSection(SqlMessagesLock); - Delimiter := GetRegValue(REGNAME_DELIMITER, DEFAULT_DELIMITER); // Delphi work around to force usage of Vista's default font (other OSes will be unaffected)