求：delphi2010中的计算某字符串的MD5值的函数,该怎么解决

求：delphi2010中的计算某字符串的MD5值的函数
要求字符串可以是中文(UTF8)
折腾几天了，实在是没办法，头都大了，请各位大侠帮帮忙，谢了~

[解决办法]
function md5(S: String): String;
var
md5 :TIdHashMessageDigest5;
begin
md5:= TIdHashMessageDigest5.Create;
try
Result := md5.HashStringAsHex(s, TEncoding.UTF8); <------- 在这里加上编码~
finally
md5.Free;
end;