急救！！！delphi7 下面对ucs-2编码如何进行转码？

各位大虾，小弟在开发一个身份证的读取程序，但是读出来是用gb13000 ucs-2进行编码的，然后我在百度上找遍了都没有找到关于delphi7下的转码函数，请问这个有解吗？
谢谢!!!

function Ucs2ToGBK(const InValue: string): string;
　　var
　　 I: Integer;
　　begin
　　 Result := '';
　　 for I := 1 to length(InValue) div 2 - 1 do
　　 Result := Result + WideChar(StrToInt('$' + IntToHex(Ord(InValue[2 * I - 1]), 2)
　　 + IntToHex(Ord(InValue[2 * I]), 2)));
　　end;

llegal character in input file:''报这个错误啊，朋友

彛?獞????出来还是显示乱码啊？_[穇s^ 1 0 1 1 9 7 9 1 1 0 9 蛻哵^]N櫉aW:S噀SNQg5 1 鱏3 b^1 0 - 1 0 5 1 0 2 1 6 1 9 7 9 1 1 0 9 2 0 1 9 蛻哵^lQ塠@]N櫉aWR@\ 2 0 1 5 0 1 2 6 2 0 3 5 0 1 2 6 原文是这样的