procedure Serialize(ABuffer: PJSONValue; AValue: TObject); overload;