function StrPCopyW(Dest: PWideChar; const Source: AnsiString): PWideChar;

TntSysUtils

TNT-WARN StrPCopy TNT-WARN StrPCopyW < -- accepts ansi string parameter