Поиск в Memo

[Silverstone]

Memo заполняется различными словами:

Слово 1
Слово 2
Слово 3

Нужно найти слово, на которое есть какое-то зарезервированное действие.
Вопрос в том, как именно запрограммировать псевдокод такого вида:

if ("Слово Х" in Memo1) then do begin Действие

При этом после каждого клика на Button список слов в Memo обновляется.
По сути, это чат-бот, который отвечает шаблонными фразами на различные найденные маски-слов.

[ZuBy]

if Pos('Слово Х', Memo1.text) > 0 then

[Silverstone]

Сообщение от ZuBy

if Pos('Слово Х', Memo1.text) > 0 then

Т.е в итоге запилить несколько конструкций if и приписывать каждой свое действие?

[Stilet]

if Memo1.Lines.IndexOf('Слово 1')<>-1 then Действуй

[Silverstone]

А если мне необходимо реализовать такой вариант.
Через pos ищу слово в Memo. Некоторые слова уже заданы в массиве.
Т.е массив такой, например:

const mas : array[0..1] of String = ('Слово1', 'Слово2');

И искать нужно как-то так:

if pos(mas[i], Memo2.Lines.Text)

Что вместо mas[i] тогда написать нужно?

[ZuBy]

что-то типа этого?

for i := low(mas) to high(mas) do
begin
  if pos(mas[i], Memo2.Lines.Text) >0 then
end;

[Stilet]

В цикле тогда по массиву проход делай.

[Silverstone]

Да, это подходит. Спасибо.