Flash > Delphi

[endeffects]

Hallo,

kann mir vielleicht jemand sagen wie
man folgende flash (action script) methode
in delphi umsetzt?

Delphi-Quellcode:

function decode(key)
{
    var _lc3 = key;
    var _lc1;
    var _lc2 = "";
    for (var _lc1 = _lc3.length - 1; _lc1 >= 0; --_lc1)
    {
        _lc2 = _lc2 + chr(155 - _lc3.charCodeAt(_lc1));
    } 
    return (_lc2);
}