pt 

OnChange (TMenu)