title: sha1 checksum in delphi
body: <p>I have the following code written in delphi. </p>
  
  <pre><code>with TIdHashMessageDigest5.Create do begin
      st2.Position := 0;
      Digest := HashValue( st2 );
      SetLength( Hash, 16 );
      Move( Digest, Hash[1], 16);
      Free;
  end;
  </code></pre>
  
  <p>I need to convert that to use SHA1 hash. I couldn't find SHA1 type in the library. Can anyone help? I have looked for help on the internet but couldn't find any.</p>