Распечатать > Проверка существования текста на сайте (Pos, IdHTTP). Пример на Delphi

Пример на Delphi для проверки на существования текста на сайте. Для примера будут использованы компонент IdHTTP и функция Pos

var
Str, Send : string;
P : integer;
begin
Str := 'Delphi Studio';
Send := IdHTTP.Get('http://delphistudio.ru/');
P := Pos(Str, Send);
if P>0 then
ShowMessage('Текст '+Str+' присутствует на сайте')
else
ShowMessage('Текст '+Str+' отсутствует');
end;