有关单字节字符串的问题

comqing

原来在Delphi下有一个函数，其中有一句
Function TForm1.StrtoQP(const test:string):string;
var
  s: string;
  i : integer;
Begin
   S:='';
   for i:=1 to length(test) do
   begin
       S:=S+'='+IntToHex(Ord(test),2);
   end;
   result:=S;
end;

在平台下，因为字符串是WideString的原因test里面有中文的号test取到的是一个汉字，我想像DELPHI一样取到值，因该怎么做？
这个帖子里面和我的情况类似，不过我没找到这个里面提到的MidBStr这个函数，StrUtils下只有MidStr达不到我要的结果
http://bbs.justep.com/forum.php? ... ighlight=AnsiString