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