procedure Deserialize(ABuffer: PJSONValue; ABufSize: Integer;
                      const AResult: TObject); overload;