Source position: fpwebdata.pp line 416
type TContentProducerEvent = procedure(
Sender: TObject;
var AContentProducer: TCustomHTTPDataContentProducer
) of object;