∧,,∧　　　
　　　ミ,,ﾟДﾟ彡　　　すまそ。解決しまつた。
　 　 ﾐ　つ旦)~~
　 〜と,,,~),,~)

Result[i] := WideChar( (UpByte) + (DownByte) * $100 );

このようにしたらよいようです。