Source position: odataservice.pp line 97
type TServiceLogEvent = procedure(
Sender: TObject;
const Msg: string
) of object;