TMenu
pt
OnChange
pl
OnDrawItem
pl
OnMeasureItem
TLCLComponent