anchor.diff:    public
       constructor Create(ACapacity: Integer = 255); overload;
       constructor Create(const AString: string); overload;
  -    function ReadString(Count: Longint): string;
  +    function ReadString(Count: Integer): string;
       procedure WriteString(const AString: string);
       procedure InsertString(const AString: string);
  -    function Seek(Offset: Longint; Origin: Word): Longint;
  +    function Seek(Offset: Integer; Origin: Word): Integer;
       function ToString: string; {$IFDEF DELPHI2009_UP}override;{$ENDIF}{$IFDEF FPC}override;{$ENDIF}
       property Position: Integer read FPosition write SetPosition;
       property Length: Integer read FLength;
  
positive.code:   private
      FBytes: TBytes;
    protected
      function Realloc(var NewCapacity: Longint): Pointer; override;
    public
      constructor Create(const ABytes: TBytes); overload;
      property Bytes: TBytes read FBytes;
  
negative.code:   end;
  end;
  
  function TStringBuffer.Seek(Offset: Integer; Origin: Word): Integer;
  begin
    case Origin of
      soFromBeginning: FPosition := Offset;
  