TControlCanvas

 

TCanvas

pl 

OnChange

pl 

OnChanging