在DELPHI或VB中怎么进行这种编码和解码？？？

<SCRIPT LANGUAGE="JScript">
var str1,str2,str3;
str3='无间道3－A.WMV';
str1=encodeURI(str3);
str2=decodeURI(str1);
document.write('原字符串: '+str3+'<BR>');
document.write('编码后: '+str1+'<BR>');
document.write('解码后: '+str2+'<BR>');
</SCRIPT>在DELPHI或VB中怎么进行这种编码和解码？？？