16.43.2. function Pos
function Pos(SubStr, S: String): Integer;
Возвращает позицию подстроки substr в строке S. Поиск подстроки ведется с учетом регистра символов. Если поиск подстроки успешен, то возвращается номер первого символа первого вхождения SubStr в строке S. Если поиск неуспешен, то функция возвращает 0.
begin
AddToLog(IntToStr(Pos('кошка', 'У попа была собака')));
AddToLog(IntToStr(Pos('собака', 'У попа была собака' )));
end.