跪求一段Javascript转换成Delphi的函数

[icedsoul]

请各位大侠援手，谢谢~~~~

function binl2str(bin)
{
var str = "";
var mask = (1 << chrsz) - 1;
for(var i = 0; i < bin.length * 32; i += chrsz)
str += String.fromCharCode((bin[i>>5] >>> (i % 32)) & mask);
return str;
}

http://bbs.2ccc.com/topic.asp?topicid=329434