function StrPLCopyW(Dest: PWideChar; const Source: AnsiString; MaxLen: Cardinal): PWideChar;

TntSysUtils

TNT-WARN StrPLCopy TNT-WARN StrPLCopyW <-- accepts ansi string parameter