Перевести функцию с java в delphi 2010

Перевести функцию с java в delphi 2010
жду ваших предложений

    public static String bla_blabla(String ik1) {
        byte[] v2_1 = new byte[0];
        int v0 = 0;
        String v2 = ik1;
        String v1 = new String();
        try {
            MessageDigest v3 = MessageDigest.getInstance("MD5");
            v3.update(v2.getBytes(), 0, v2.length());
            v2_1 = v3.digest();
        } catch (Throwable v0_1) {

        }
        while (v0 < v2_1.length) {
            int v3_1 = v2_1[v0] & 0xFF;
            if (v3_1 <= 15) {
                v1 = v1 + "0";
            }

            v1 = v1 + Integer.toHexString(v3_1);
            ++v0;
        }
        return v1.toUpperCase();
    }