function StrCopyW(Dest: PWideChar; Source: PWideChar): PWideChar;

TntSysUtils

TNT-WARN StrCopy