TFilePrinterCanvas

TPrinterCanvas

TCanvas

pl 

OnChange

pl 

OnChanging