Noob question:

Noob question:
Is there a cleaner way to insert a JsonRPC request handler into a TWebModule?
Note - Insert as an action in code, and not at design time.

procedure TWebModule1.WebModule1DefaultHandlerAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
if (Request.MethodType = mtPost) and (Request.ContentType = 'application/json') and (Request.PathInfo = '/')
then begin
JsonRPC.Invoke(Sender, Request, Response, Handled);
end
else begin
Response.Content := {"",""}
'' +
'' +
'Move along' +
'';
end;
end;