Source position: HTMLUn2.pas line 800
function WidePos(
SubStr: UnicodeString;
S: UnicodeString
):Integer;