Delphi MD5 encryption process corresponding to the JAVA

// references delphi comes 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);
was
sSign: string;
Beginning
sSign: = 'abcdrfg';
sSign: Lowercase = (ret_mymd5 (AnsiToUtf8 (sSign)));
Show Message (sSign);
than;