И что значит фрагмент
procedure THIFontBox.Init писал(а):
...
if ManFlags and $04 > 0 then
Control.OnMeasureItem:= OnMeasureItem;
...
Из-за того, что условие в некоторых случаях не выполняется, обработчик OnMeasureItem не назначается, поэтому и возникали глюки с высотой FontBox и DriveBox.