delphi xe2下怎么使用md5加密

delphi xe2下如何使用md5加密
在D7下可以正确的对密码进行MD5加密，但是在XE2下就不行，大概也知道这个字符串的不同，大事目前有什么办法可以解决?

[解决办法]

Delphi(Pascal) code

uses  IdHashMessageDigest;function MD5String(Text: string): string;var  MD5: TIdHashMessageDigest5;begin  MD5 := TIdHashMessageDigest5.Create;  Result := MD5.HashStringAsHex(Text, TEncoding.UTF8);  MD5.Free;end;