TPenHandleCache
pt
RemoveItem
Create
CompareDescriptors
FindPen
FindPenDesc
Add