ItemHeight := _prop_Height - 6;
вообще же логичнее было бы сделать св-во ItemHeight в самом элементе, как это сделано например в среде Delphi, а уже менеджером вычислять его для каждого пункта и не так, как сейчас, а масштабируемо. Т.е. вот так:
h := _prop_IconManager.CalcMaxHeight(ItemHeight);
h := _prop_DrawBoxManager.CalcMaxHeight(h);
#pas
if Assigned(_prop_BoxDrawManager) then
ItemHeight := max((value.imgsz + _prop_BoxDrawManager.AddSize * 2), Control.Canvas.TextExtent('W').cy);