TMenuItem

pl 

OnClick

pl 

OnDrawItem

pl 

OnMeasureItem

TLCLComponent

TComponent

TPersistent

TObject