【Delphi】判断一个字符串是否包含另一个字符串

用Pos函数，判断一个字符串中是否包含另一个字符串，
若存在则返回>0的值，若不存在则返回0。
示例：
判断‘boy’ 是否在‘you are a boy’中，则
i=pos(‘boy’,‘you are a boy’) ,返回值 i=11。