javascript有一个encodeURI函数， 用Delphi怎么实现

javascript有一个encodeURI函数， 用Delphi如何实现？
javascript有一个encodeURI函数， 

用Delphi如何实现？ 

此函数可以把 %E6%B5%8B%E8%AF%95 解成“测试”

[解决办法]
if str='%E6%B5%8B%E8%AF%95' then
str:='测试';
[解决办法]
楼上的楼上的楼上真是有强人啊


[解决办法]

Delphi(Pascal) code

uses  ComObj;var  sc: OleVariant;  Words:string;begin  sc := CreateOleObject('MSScriptControl.ScriptControl.1');  sc.Language :='javascript';  Words:='测试';  Words:=sc.Eval('escape('''+Words+''')');  showmessage( words );  words:=sc.Eval('unescape('''+Words+''')');  showmessage( words );end;
[解决办法]
http://www.9cpp.com/Ds/Example/20070617/298.html