function  Serialize(AValue: TObject): TJSONValue; overload;