Source position: fpweb.pp line 104
type TContentEvent = procedure(
Sender: TObject;
Content: TStream
) of object;