anchor.diff:    private
       FBytes: TBytes;
     protected
  -    function Realloc(var NewCapacity: Longint): Pointer; override;
  +    function Realloc(var NewCapacity: Integer): Pointer; override;
     public
       constructor Create(const ABytes: TBytes); overload;
       property Bytes: TBytes read FBytes;
  
positive.code:   public
      constructor Create(ACapacity: Integer = 255); overload;
      constructor Create(const AString: string); overload;
      function ReadString(Count: Longint): string;
      procedure WriteString(const AString: string);
      procedure InsertString(const AString: string);
      function Seek(Offset: Longint; Origin: Word): Longint;
      function ToString: string; {$IFDEF DELPHI2009_UP}override;{$ENDIF}{$IFDEF FPC}override;{$ENDIF}
      property Position: Integer read FPosition write SetPosition;
      property Length: Integer read FLength;
  
negative.code:   Capacity := Size;
  end;
  
  function TBytesStream.Realloc(var NewCapacity: Integer): Pointer;
  begin
    if (NewCapacity > 0) and (NewCapacity <> Size) then
      NewCapacity := (NewCapacity + (MemoryDelta - 1)) and not (MemoryDelta - 1);
  