Mep Sites: Dicas de Delphi - Bloqueio de palavras

Utilize a função Pos. Por exemplo:

sAux:='Mep Sites: a web é sua!';
if Pos('web',sAux)>0 then
{faça alguma coisa};