Source position: fphtml.pp line 475
type TCreateWriterEvent = procedure(
Sender: TObject;
ADocument: THTMLDocument;
var AWriter: THTMLWriter
) of object;