Source position: fphttpserver.pp line 310
type THTTPLogEvent = procedure(
aSender: TObject;
aType: TEventType;
const Msg: string
) of object;