Python中的Unicode在Delphi如何还原成Gb2312？

已知Python 中：
s = unicode("测试", "gb2312")
s = u'\u6d4b\u8bd5'
print s
测试

在Delphi里面如何将\u6d4b\u8bd5这样的还原成Gb2312的汉字呢？

---

找到个方法

function UniCode2GB(S : String):String;
Var
  I: Integer;
begin
I := Length(S);
  while I >=4 do
  begin
    try
      Result :=WideChar(StrToInt('$'+S[I-3]+S[I-2]+S[I-1]+S[I]))+ Result;
    except end;
    I := I - 4;
  end;
end;