急怎么将其他语言(俄语,法语,繁体)转换成unicode

急!!如何将其他语言(俄语,法语,繁体)转换成unicode
RT.
比如 S:="Китай";//中国的俄语
问题:
1.怎样将Китай(俄语)转换成unicode?

2.法语,繁体其它语言呢?


目前只知道简体汉字转换成Unicode
//汉字 -> UniCode
function Chinese2UniCode(AiChinese : String) : Integer;
var
  ch, cl : string[2];
  a : array [1..2] of char;
begin
  StringToWideChar(Copy(AiChinese, 1, 2), @(a[1]), 2);
  ch := IntToHex(Integer(a[2]), 2);
  cl := IntToHex(Integer(a[1]), 2);
  Result := StrToInt('$' + ch + cl);
end;

谢谢先.

------解决方案--------------------
做个码表呗
对应着自己转，好在俄语字母也不算多。
------解决方案--------------------

探讨

引用:
做个码表呗
对应着自己转，好在俄语字母也不算多。


能不能说具体一点,谢谢