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