function WideTextPos(const SubStr: WideString; const S: WideString): Integer;

TntSysUtils

This is function TntSysUtils.WideTextPos.