TPSPen
TPSObject
OnChange