anchor.diff:          Lines := FLB.Items.Count;
           if Lines > FMaxLogLines then
             FLB.Items.Delete(0);
  -        FLB.AddItem(lText, nil)
  +        FLB.AddItem(lText, nil);
  +        FLB.ItemIndex := FLB.Items.Count - 1;
         finally
           FLB.Items.EndUpdate;
         end;
  -      FLB.ItemIndex := FLB.Items.Count - 1;
       end);
   end;
   
  
positive.code: unit LoggerPro.VCLListBoxAppender;
  { <@abstract(The unit to include if you want to use the @link(TVCLMemoLogAppender))
    @author(Daniele Teti) }
  
  interface
  
  
negative.code:   Vcl.StdCtrls;
  
  type
    { @abstract(Appends formatted @link(TLogItem) to a TListBox in a VCL application) }
    TVCLListBoxAppender = class(TLoggerProAppenderBase)
    private
      FLB: TListBox;
  