anchor.diff:  resourcestring
     SIndexOutOfRange = 'Current Index Is Out Of Range';
     SInvalidBufferSize = '"BufferSize" Must Be Greater Than Zero';
  -  // SInvalidBlockSize = '"BlockSize" Must Be Greater Than Zero';
  -  // SInvalidHashSize = '"HashSize" Must Be Greater Than Zero';
     SUnAssignedStream = 'Input Stream Is Unassigned';
     SFileNotExist = 'Specified File Not Found';
     SCloneNotYetImplemented = 'Clone Not Yet Implemented For "%s"';
  
positive.code: 
  procedure THash.SetHashSize(value: Int32);
  begin
    // if value > 0 then
    // begin
    Fm_hash_size := value;
    // end
    // else
    // begin
    // raise EArgumentHashLibException.CreateRes(@SInvalidHashSize);
    // end;
  end;
  
  function THash.ComputeString(const a_data: String; a_encoding: TEncoding)
  
negative.code: 
  procedure THash.SetBlockSize(value: Int32);
  begin
    Fm_block_size := value;
  end;
  
  function THash.GetHashSize: Int32;
  