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