delphi 的Utf8ToUnicode方法

delphi 的Utf8ToUnicode方法怎么用呢，
能不能把"4e2d56fd"这个字符串转为中文？

---

Delphi里面有UTF8Decode这可完成这个工作。

---

能不能写个具体的例子

---

mark

---

Delphi(Pascal) code:

uses EncdDecd;
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo1.Lines.Text := DecodeString('4e2d56fd');
end;

---

http://bbs.2ccc.com/topic.asp?topicid=339687

---

Delphi(Pascal) code:

procedure TForm1.Button3Click(Sender: TObject);
var
Dest:Pchar;
Unic:PWidechar;
str:string;
NewDest:PwideChar;
begin
GetMem(Unic,100);
try
GetMem(Dest,100);
UnicodeToUtf8(Dest,StringToWideChar('测试字符串', Unic, 100),100);
try
str:=StrPas(Dest);
ShowMessage('utf8的编码为:'+Str);
GetMem(NewDest,100);
try
Utf8toUnicode(NewDest,Dest,100);
ShowMessage('原始的字符为:'+WideCharToString(NewDest));
finally
FreeMem(NewDest);
end;
finally
FreeMem(Dest);
end;
finally
FreeMem(Unic);
end;
end;

---

procedure TForm