function StrScanW(const Str: PWideChar; Chr: WideChar): PWideChar;

TntSysUtils

TNT-WARN StrScan TNT-WARN AnsiStrScan