求短信开发 delphi的英文解码程序(50分)

若短消息内容为字母和数字，而不含中文时，英文字符一般是以一个字节来表示的，最常
用的编码方法是 ASCII，Hi 2个字节，C834
现在要解码：
eg.将C834转换成Hi

你到网上找一个钱勤的《手机短信息SMS的程序开发》，里边有编码的具体介绍。
下面是实现英文编码的部分Delphi 5代码，你自已反写一下这个函数就是你要求的功能。

//英文格式编码，s为String
function Encode1(var s:String):String;
var
i,j,len:Integer;
cur:Integer;
t:String;
begin

Result:=‘’;
len:=Length(s);
//j 用于移位计数
i:=1;j:=0;

while i<=lendo

begin

if i<len then

//数据变换
cur:=(ord(s) shr j) or ((ord(s[i＋1]) shl (7－j)) and ＄ff)
else

cur:=(ord(s) shr j) and ＄7f;
FmtStr(t,‘％2.2X’,[cur]);
Result:=Result＋t;
inc(i);
//移位计数达到7位的特别处理
j:=(j＋1) mod 7;
if j=0 then
inc(i);
end;

end;