TControlCanvas
TCanvas
pl
OnChange
pl
OnChanging