procedure TWebModule1.WebModuleBeforeDispatch(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean); var I: integer; begin if not PathsFixed then begin // private var at TWebModule1 class level for I := 0 to Actions.Count - 1 do Actions[I]. PathInfo := Request.ScriptName + Actions[I].PathInfo; PathsFixed := True; end; end;