TVisibilityChangeEventObj
TEventObj
pl
Sender