delphi xe2上怎么使用md5加密

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

uses
  IdHashMessageDigest;

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