TPSPen

pt 

SetColor

pt 

Setwidth

Create

Destroy

Assign

AsString

TPSObject

pt 

Changed

pt 

Lock

pt 

UnLock