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