procedure THIComboBox.SetIconsManager;
begin
if value <> nil then
begin
fIconsManager := value;
if Assigned(_prop_BoxDrawManager) then
ItemHeight := max((value.imgsz + _prop_BoxDrawManager.AddSize * 2), Control.Canvas.TextExtent('W').cy);
end;
SetStrings(_prop_Strings);
Control.Text := _prop_Text;
end;
И все будет работать