Source position: fpjsonrpc.pp line 310
type TBeforeCreateJSONRPCHandlerEvent = procedure(
Sender: TObject;
var AClass: TCustomJSONRPCHandlerClass
) of object;