dateStr">procedure UpdateStr(const Str: string);</a></font>
    <p>This procedure hashes the string Str. To get the hash result call <a href="#Final">Final</a>.
    <hr>
    <p><font size="+2"><a name="Example1">Example 1 - File hashing</a></font>
    <p>This example shows how you can hash the contents of a file
    <pre>
  <b>procedure</b> TForm1.Button1Click(Sender: TObject);
  <b>var</b>
    Hash: TDCP_ripemd160;
    Digest: <b>array</b>[0..19] <b>of</b> <b>byte</b>;  <em>// RipeMD-160 produces 