function Pos(Substr: string; S: string): Integer;例如Pos('abc', Edit1.Text),返回Substr的第一个字符在S中的位置，从1开始，并且区分大小写，如果没有找到，返回0。
POS(substr:string;s:string)
