function StrLCopyW(Dest: PWideChar; Source: PWideChar; MaxLen: Cardinal): PWideChar;

TntSysUtils

TNT-WARN StrLCopy