Модуль: System

Описание
Функция находит подстроку Substr в строке S и возвращает ин-декс первого символа найденной подстроки. Если S не содержит указанную подстроку, то функция возвращает 0.

Пример
var
   S: string;
   I: Integer;
begin
   S:= 'В лесу родилась елочка';
   I:= Pos( 'лес', S);     // I:= 3
end;