Source position: fphtml.pp line 220
type TForeachContentProducerProc = procedure(
const AContentProducer: THTMLContentProducer
) of object;