diff --git a/components/lazutils/lazlogger.pas b/components/lazutils/lazlogger.pas index be2479dd5c..801ea4a883 100644 --- a/components/lazutils/lazlogger.pas +++ b/components/lazutils/lazlogger.pas @@ -255,6 +255,8 @@ end; destructor TLazLoggerFileHandleMainThread.Destroy; begin + // Call Syncronize (in the main thread) before destroy to catch any pending log + TThread.RemoveQueuedEvents(@MainThreadWrite); inherited Destroy; DoneCriticalsection(FWriteToFileLock); end;