* Patch from Henrique Werlang to implement generic AsType<T>()

packages/rtl/rtti.pas

@@ -41,6 +41,7 @@ type
     property TypeInfo: TTypeInfo read FTypeInfo;
 
     property IsEmpty: boolean read GetIsEmpty; // check if nil or undefined
+    generic function AsType<T>: T;
     function IsObject: boolean;
     function AsObject: TObject;
     function IsObjectInstance: boolean;
@@ -539,6 +540,11 @@ begin
     Result:=FTypeInfo.Kind;
 end;
 
+generic function TValue.AsType<T>: T;
+begin
+  Result := T(AsJSValue)
+end;
+
 generic class function TValue.From<T>(const Value: T): TValue;
 begin
   Result := Make(System.TypeInfo(T), Value);