procedure Serialize(const AProc: TProc<TJSONValue>; AValue: TObject); overload;