anchor.diff:  begin
     fText := aText;
     ReformatText;
  +
  +  if Assigned(fOnChange) then
  +    fOnChange(Self);
   end;
   
   
  
positive.code: 
    SetText(fText); //Updates the text in fItems
    UpdateScrollBar; //Scroll down with each item that is added.
  end;
  
  
  
negative.code:   fItems.Clear;
    ResetSelection;
    UpdateScrollBar;
  
    if Assigned(fOnChange) then
      fOnChange(Self);
  end;
  
  
  