Command (TPDFClipPath)

Create (TPDFObject)

Create (TPDFDocumentObject)

pt 

FloatStr (TPDFObject)

SetWidth (TPDFDocumentObject)

pt 

Write (TPDFObject)

pt 

Write (TPDFClipPath)

pt 

WriteString (TPDFObject)