anchor.diff:  const
     ciMaxLineCount = 200;
   begin
  -  if ThrdLog.Terminated then
  -    Exit; //==>
  -
  -  inherited WriteToOutput;
  -
  -  if ListWorking.Count > ciMaxLineCount * 2 then
  +  if WorkingList.Count > (ciMaxLineCount * 2) then
     begin
       FMemoLog.Lines.Clear;
  -    LPosStart := ListWorking.Count - 1 - ciMaxLineCount;
  -    LPosEnd   := ListWorking.Count - 1;
  -  end else
  +    LPosStart := WorkingList.Count - 1 - ciMaxLineCount;
  +    LPosEnd   := WorkingList.Count - 1;
  +  end
  +  else
     begin
       if FMemoLog.Lines.Count > ciMaxLineCount then
       begin
  
positive.code:     procedure   WriteToMemo(const AMessage: string);
    protected
      procedure   WriteToOutput; override;
      procedure   SetSevToLog(const AValue: TtiSevToLog); override;
    public
      constructor Create; override;
  
negative.code: 
  destructor TtiLogToGUI.Destroy;
  begin
    if Assigned(FForm) then
      FForm.Free;
    FForm := nil;
    inherited Destroy;
  end;
  
  function TtiLogToGUI.CreateForm: TfpgForm;
  