anchor.diff:   *                                                        *
    * hprose common unit for delphi.                         *
    *                                                        *
  - * LastModified: Nov 27, 2016                             *
  + * LastModified: Nov 30, 2016                             *
    * Author: Ma Bingyao <andot@hprose.com>                  *
    *                                                        *
   \**********************************************************/
  
positive.code:   Capacity := Size;
  end;
  
  function TBytesStream.Realloc(var NewCapacity: Longint): Pointer;
  begin
    if (NewCapacity > 0) and (NewCapacity <> Size) then
      NewCapacity := (NewCapacity + (MemoryDelta - 1)) and not (MemoryDelta - 1);
  
negative.code:   private
      FBytes: TBytes;
    protected
      function Realloc(var NewCapacity: Integer): Pointer; override;
    public
      constructor Create(const ABytes: TBytes); overload;
      property Bytes: TBytes read FBytes;
  