anchor.diff:  implementation
   
   uses
  -  System.SysUtils,
  -  Winapi.Windows,
  -  Winapi.Messages;
  +  System.SysUtils;
   
  -{ TVCLMemoLogAppender }
  +{ TVCLListBoxAppender }
   
   constructor TVCLListBoxAppender.Create(aLB: TListBox; aMaxLogLines: Word; aLogFormat: string);
   begin
  
positive.code:         Lines := FLB.Items.Count;
          if Lines > FMaxLogLines then
            FLB.Items.Delete(0);
          FLB.AddItem(lText, nil)
        finally
          FLB.Items.EndUpdate;
        end;
        FLB.ItemIndex := FLB.Items.Count - 1;
      end);
  end;
  
  
negative.code:   Vcl.StdCtrls;
  
  type
    { @abstract(Appends formatted @link(TLogItem) to a TListBox in a VCL application) }
    TVCLListBoxAppender = class(TLoggerProAppenderBase)
    private
      FLB: TListBox;
  