TMenu

pt 

OnChange

pl 

OnDrawItem

pl 

OnMeasureItem

TLCLComponent

TComponent

TPersistent

TObject