TPDFResetPath

pt 

Write

Command

TPDFDocumentObject

Create

SetWidth

TPDFObject

pt 

FloatStr

pt 

Write

pt 

WriteString

Create