anchor.diff:  
     TmLogPublisherClass = class of TmLogPublisher;
   
  +  { TmLogManager }
  +
     TmLogManager = class
     strict private
       FThread : TThread;
  
positive.code: 
    (FVCLThread as TmLogPublisherThread).Messages.PushMessage(aLevel, aContext, aMessage);
    (FVCLThread as TmLogPublisherThread).StartEvent.SetEvent;
  end;
  
  
  
negative.code: 
          if not Self.Terminated then
          begin
            FStartEvent.ResetEvent;
            FStartEvent.WaitFor(INFINITE);
          end;
        end;
      except
  