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;