TControlCanvas
pt
CreateHandle
pt
GetDefaultColor
Create
Destroy
FreeHandle
ControlIsPainting