* Add IsConstValue

rtl/inc/system.fpd

@@ -96,6 +96,7 @@ Function GetTypeKind(Const T : AnyType) : TTypeKind;
 Procedure Fail;
 Function TypeOf(T : TObjectType) : Pointer;
 Function IsManagedType(T : TType) : Boolean;
+Function IsConstValue(V : TAnyType) : Boolean;
 Procedure Initialize(Var T : TAnyType; ACount : SizeInt = 1);
 Procedure Finalize(Var T : TAnyType; ACount : SizeInt = 1);