diff --git a/packages/fcl-web/src/base/httproute.pp b/packages/fcl-web/src/base/httproute.pp
index 15bd8485e1..9972cf9cf2 100644
--- a/packages/fcl-web/src/base/httproute.pp
+++ b/packages/fcl-web/src/base/httproute.pp
@@ -130,6 +130,7 @@ Type
 
   TRouteObject = Class(TObject,IRouteInterface)
   Public
+    Constructor Create; virtual; 
     Procedure HandleRequest(ARequest : TRequest; AResponse : TResponse); virtual; abstract;
   end;
   TRouteObjectClass = Class of TRouteObject;
@@ -258,6 +259,14 @@ begin
   CallBack(ARequest, AResponse);
 end;
 
+{ TRouteObject }
+
+Constructor TRouteObject.Create;
+
+begin
+  // Do nothing, added to make sure descendents can override it.
+end;
+
 { THTTPRouteObject }
 
 procedure THTTPRouteObject.DoHandleRequest(ARequest: TRequest;