Модуль: SysUtils

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

Пример
const
   SubStr: PChar = 'www';
var
   S, R: PChar;
begin
   S:= 'http://www.atrussk.ru/delphi/';
   R:= StrPos(S, SubStr);
   if R<>nil then MessageDlg( R, mtInformation, [mbOk], 0) else
       MessageDlg( 'Не правильно указан URL!', mtError, [mbOk], 0);
end;