关于取得汉字的unicode编码的问题

Question

看了很久，关于怎么将汉字转换成unicode，也试了几次
但是不明白怎么用 网上说delphi的函数是StringToWideChar 试了 没有达到我想要的效果。。
还有就是windows的API函数MultiByteToWideChar，这个我就更不会用了 API我基本上看不懂参数
请大家教教我 好吗？
请给出delphi源代码。我实在不会
谢谢
还有就是我学delphi这么久了 还不能拿到delphi和windows API函数来用
谁能告诉怎么把这个学会，另开帖高分送出，在这里告诉我也可以
我会给大家开新帖给分的。 谢谢

Answer 1

var 
    s:string;
    t:widestring;
    i:integer;
    h,l:byte;
begin
    s:='12阿f';
    t:=widestring(s);
    for i:=1 to length(t) do
    begin
    h:=hi(ord(t[i]));
    l:=lo(ord(t[i]));
    memo1.lines.add(inttohex(h,2)+inttohex(l,2));
   end;
end;

Answer 2

function Encode2(var s:WideString):String; 
var 
i,len:Integer; 
cur:Integer; 
t:String; 
begin 
Result:=‘’; 
len:=Length(s); 
i:=1; 
while i<=len do 
begin 
cur:=ord(s[i]); 
//BCD转换 
FmtStr(t,‘％4.4X’,[cur]); 
Result:=Result＋t; 
inc(i); 
end; 
end; 
注意是var s:WideString