Cette fonction retourne la position d'une sous-chaine de caractères en mode Windows ANSI dans une chaine de caractères.

Function AnsiPos(Const SubStr,S:String):Integer;