                                  <em>// initialize it</em>
      Hash.UpdateStream(Source,Source.Size);       <em>// hash the stream contents</em>
      Hash.Final(Digest);                          <em>// produce the digest</em>
      Source.Free;
      s:= '';
      <b>for</b> i:= 0 <b>to</b> 19 <b>do</b>
        s:= s + IntToHex(Digest[i],2);
      Edit2.Text:= s;                              <em>// display the digest</em>
    <b>end</b>;
  <b>end</b>;
    </pre>
    <p>&nbsp;
    <p><a href=