* Make Terminated property accessible for descendents

git-svn-id: trunk@16898 -

packages/fcl-web/src/base/custweb.pp

@@ -108,6 +108,7 @@ Type
     procedure ShowRequestException(R: TResponse; E: Exception); virtual;
     Function GetEmail : String; virtual;
     Function GetAdministrator : String; virtual;
+    property Terminated: boolean read FTerminated;
   Public
     constructor Create(AOwner: TComponent); override;
     Procedure Run; virtual;