pl 

Canvas (TPaintingEventObj)

pl 

Sender (TEventObj)