TPDFPushGraphicsStack
pt
Write
Command
TPDFDocumentObject
Create
SetWidth
TPDFObject
FloatStr
WriteString