>>622
ヘルプにWideCharToStrVar手続きがあったので、

Result := WideCharToString(PWideChar(PChar(wk)+2));//先頭2byteをカット
の部分を、
WideCharToStrVar(PWideChar(PChar(wk)+2),dest1);
Result := dest1;
としてみたのですが
ページ違反は変わりませんでした。

どのように直していけば良いのでしょうか?