anchor.diff:      procedure   WriteToMemo(const AMessage: string);
     protected
       procedure   WriteToOutput; override;
  +    procedure   WorkingListToOutput; override;
       procedure   SetSevToLog(const AValue: TtiSevToLog); override;
     public
       constructor Create; override;
  
positive.code:       //{$IFDEF MSWINDOWS}
        //SendMessage(FMemoLog.handle, WM_VSCROLL, SB_Bottom, 0);
        //{$ENDIF MSWINDOWS}
      end;
      LPosStart := 0;
      LPosEnd   := ListWorking.Count - 1;
    end;
  
    for i := LPosStart to LPosEnd do begin
      if ThrdLog.Terminated then
        Break; //==>
      LLogEvent := TtiLogEvent(ListWorking.Items[i]);
      WriteToMemo(LLogEvent.AsLeftPaddedString);
    end;
  
    ListWorking.Clear;
  end;
  
  procedure TtiLogToGUI.FormClearMenuItemClick(Sender: TObject);
  
negative.code:   This in normally controlled by the tiLogReg unit.
  
    *** NOTE ***
    * If you application doesn't terminate when you activated LogToGUI, it probably
      means a TThread.WaitFor deadlock occured. In that case, call ReleaseLog()
      after fpgApplication.Run in you project's *.lpr file.
    * Alternatively, the LogToGUI form was accidentaly set as Application.MainForm,
      because it was the first form created.
  }
  unit tiLogToGUI;
  
  