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:   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.
  }
  unit tiLogToGUI;
  
  
negative.code: const
    ciMaxLineCount = 200;
  begin
    if WorkingList.Count > (ciMaxLineCount * 2) then
    begin
      FMemoLog.Lines.Clear;
      LPosStart := WorkingList.Count - 1 - ciMaxLineCount;
      LPosEnd   := WorkingList.Count - 1;
    end
    else
    begin
      if FMemoLog.Lines.Count > ciMaxLineCount then
      begin
  