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