anchor.diff:  begin
     if Count > 0 then
     begin
  -    fList.Height := Math.min(fDropCount, fList.RowCount) * fList.ItemHeight + fList.Header.Height * Ord(fList.ShowHeader);
  +    fList.Height := Math.Min(fDropCount, fList.RowCount) * fList.ItemHeight + fList.Header.Height * Ord(fList.ShowHeader);
   
       if fDropUp then
         fList.AbsTop := AbsTop - fList.Height
  
positive.code:     property DefaultCaption: UnicodeString read fDefaultCaption write fDefaultCaption;
      property Item[aIndex: Integer]: UnicodeString read GetItem;
      property List: TKMListBox read fList;
  
      procedure Paint; override;
    end;
  
negative.code:   fList.fOnClick := ListClick;
    fList.fOnChange := ListChange;
  
    DropWidth := aWidth;
  
    ListHide(nil);
    fList.OnKeyDown := ListKeyDown;
  end;
  