Source position: wstringh.inc line 40
procedure DefaultWide2AnsiMove(
source: PWideChar;
var dest: ansistring;
len: SizeInt
);