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