function WideIsPathDelimiter(const S: WideString; Index: Integer): Boolean;

TntSysUtils

TNT-WARN IsPathDelimiter