如何把messagebox()的消息内容进行转换成繁体？(100分)

系统界面我想好了办法进行简繁体转换，但是那些用messagebox()提示的消息怎样转换呢？
我当初在写提示信息时都是把内容写进代码中的。
比如：Messagebox("请输入订单编码&quot.

MessageBox实际上有两个函数，一个MessageBoxA，是弹出ASCII码的函数，另外一个是MessageBoxW，是弹出Unicode编码的函数。由于Delphi默认不支持unicode，所以你需要把所有调用MessageBox的代码，改成调用MessageBoxW的就可以了。哦，对了，当然，你的字符串也必须是unicode编码，可以用UTF8Encode对string做Unicode编码。