https://www.packtpub.com/en-us/product/delphi-cookbook-second-edition-9781785287428/chapter/delphi-basics-1/section/using-owner-draw-combos-and-listboxes-ch01lvl1sec12  procedureTForm7.ListBox1DrawItem(Control:TWinControl;Index:Integer;Rect: