ASCII码 如何转换为 Unicode 码(100分)

各位：
1) 我写一个程序需要将ASCII码 如何转换为 Unicode 码，不知如何去做？？？
2)将"试”字ASCII 的内码转换为 Unicode 内码，并将其内码取出，
送入一个字符串变量。（如”试” 字的Unicode 内码是 8BD5， 如何取出后
将 “8BD5” 取出赋给一个字符串）.

cxp_1@163.net

看代码，就不多说了。
function StrToWideStringCodeStr(Str: String): String;
var
WideStr: WideString;
I, L: Integer;
begin
Result := '';
L:= MultiByteToWideChar(CP_ACP, 0, PChar(@Str[1]), - 1, nil, 0);
SetLength(WideStr, L - 1);
MultiByteToWideChar(CP_ACP, 0, PChar(@Str[1]), - 1, PWideChar(@WideStr[1]), L - 1);
for I := 1 to Ldo
Result := Result + IntToHex(Ord(WORD(WideStr)), 4);
end;

接受答案了.