Source position: wstringh.inc line 38
procedure WideCharToStrVar(
S: PWideChar;
var Dest: AnsiString
);