在delphi下实现汉字和GBK码转换（delphi XE7）

请教如何实现汉字和GBK的转换。谢谢了。
我不知道汉字和gb码的转换算法，请给位大神多多帮助，这个功能已经卡住我两天了。