Source position: fphtml.pp line 302
type TWriterEvent = procedure(
Sender: THTMLContentProducer;
aWriter: THTMLWriter
) of object;