procedure Deserialize(const AFunc: TFunc<TJSONValue>; const AResult: TObject); overload;