Source position: jswriter.pp line 40
type TTextWriterWriting = procedure(
Sender: TTextWriter
) of object;