[Ozerich]

так ты ведь и проверяешь на наличие одного символа
if Ss[i]=Aa then
ss[i]-1 символ

Есть такая функция Pos(s1,s2:string)
которая проверяет есть ли в s2 строки s1.
Возвращает позицию начала s1 в строке s2