Source position: wstringh.inc line 41
procedure DefaultAnsi2WideMove(
source: PChar;
var dest: widestring;
len: SizeInt
);