Условие которое проверяет, встречается ли слово в Memo

[akademochka]

Если это так, то не добавлять слово в Memo, а если встречается, то дальше у меня код есть
Помогите, пожалуйста

[Delphi_ProGer]

Пример:

if pos('ваше слово', Memo1.Text)<>0 then {не добавляем ваше слово} exit;