anchor.diff:                FBottomMessagePosition := FBottomMessagePosition - MessageInfo.MessageHeight;
                 BottomPosition := FBottomMessagePosition;
   
  -              ItemList[ItemListCount] := MessageInfo;
  -              Inc(ItemListCount);
  -
                 Continue;
               end;
             end;
  
positive.code:   begin
      Item := FDrawItems[0];
  
      if (FBottomMessagePosition < 0) and (Abs(FBottomMessagePosition) > Item.MessageHeight) then
      begin
        FBottomMessageIndex := FBottomMessageIndex - 1;
        FBottomMessagePosition := FBottomMessagePosition + Item.MessageHeight;
        IsScroll := True;
      end
      else if FBottomMessagePosition > 0 then
  
negative.code:     ItemExist := False;
      for j := Low(ItemNew) to High(ItemNew) do
      begin
        if (ItemOld[i] = ItemNew[j]) then
        begin
          ItemExist := True;
          Break;
  