求delphi 对MD5的标准源码

求delphi 对MD5的标准源码 VCL组件开发及应用
http://www.delphi2007.net/DelphiVCL/html/delphi_20061222191119178.html
从网上当了很多关于Delphi   版的MD5算法，计算结果都是一样的，但是它们和标准的计算工具算出来的不一样，并且对于同一个文件，我把它改个名字，或者原模原样的复制到别的地方，用那些   Delphi   版的   MD5   算法算出来的居然不一样!  
  晕死啊！！！  
  故求一个标准的delphi   版的MD5   源码。。。谢谢了！！！

delphi7里就带了标准的MD5算法，你可以搜索一下，MD5   INDY

IdHash.pas  
  IdHashMessageDigest.pas  
 

问题已解决，谢谢！  
   
  uses  
      IdHashMessageDigest  
   
  ……  
   
  //MD5计算  
  function   MD5(CheckStr:string):String;  
  var  
      MyMD5:   TIdHashMessageDigest5;  
  begin  
      MyMD5:=TIdHashMessageDigest5.Create;  
      Result:=MyMD5.AsHex(MyMD5.HashValue(TFileStream.Create(CheckStr,fmOpenRead   or   fmSharedenyNone)));  
      MyMD5.Free;  
  end;