Delphi 判斷字串理是否有規定字元

使用 pos(A,B)
如果B字串裡含有A字元,則傳回A在B理的位置(從1開始)
沒有就傳回0

Ex :

我要找"我是一隻大熊"裡有沒有熊這個字元
有就傳回"有熊出沒"

var str : string = '我是一隻大熊';
if(pos( '熊' , str ) > 0)
then
showMessage('有熊出沒');