Source position: fphtml.pp line 310
type TBooleanEvent = procedure(
Sender: THTMLContentProducer;
var flag: Boolean
) of object;