anchor.diff:  
   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)
  
positive.code: 
  procedure THash.SetBlockSize(value: Int32);
  begin
    // if value > 0 then
    // begin
    Fm_block_size := value;
    // end
    // else
    // begin
    // raise EArgumentHashLibException.CreateRes(@SInvalidBlockSize);
    // end;
  end;
  
  function THash.GetHashSize: Int32;
  
negative.code: resourcestring
    SIndexOutOfRange = 'Current Index Is Out Of Range';
    SInvalidBufferSize = '"BufferSize" Must Be Greater Than Zero';
    SUnAssignedStream = 'Input Stream Is Unassigned';
    SFileNotExist = 'Specified File Not Found';
    SCloneNotYetImplemented = 'Clone Not Yet Implemented For "%s"';
  