Delphi 对应JAVA的MD5加密处理

//引用delphi自带的idHttp, IdHashMessageDigest, IdGlobal, IdHash

function ret_mymd5(const sVaule: string): string;
var
mymd5: TIdHashMessageDigest5;
begin
try
mymd5 := TIdHashMessageDigest5.Create;
Result := (mymd5.AsHex(mymd5.HashValue(sVaule)));
finally
mymd5.Free;
end;
end;

procedure TForm1.btn2Click(Sender: TObject);
var
sSign: string;
begin
sSign := 'abcdrfg';
sSign := LowerCase(ret_mymd5(AnsiToUtf8(sSign)));
Showmessage(sSign);
end;