TTextWriter

pt 

DoWrite

pt 

SetCurElement

pt 

Writing

Create

Write

WriteLn