if (Pos('СЛОВО1', AnsiUpperCase(S)) > 0) and {в зависимости от условия, можно or} (Pos('СЛОВО2', AnsiUpperCase(S) > 0) ... then