怎么将韩文转换成unicode码

如何将韩文转换成unicode码？
如何把
?????
转换成
추가하나요

然后再把
추가하나요
转换成
?????


[解决办法]
以下代码XE测试通过，解码也简单，自己写吧

Delphi(Pascal) code

function ToKorean(Value: string): string;var  List: TStringList;  I: Integer;begin  Result := '';  List := TStringList.Create;  List.Delimiter := ';';  List.DelimitedText := Value;  for I := 0 to List.Count - 2 do    Result := Result + Char(StrToInt(ReplaceText(List[I], '&#', '')));  List.Free;end;