Поиск нескольких слов в Memo

Mik92

Подскажите, как сделать, чтобы в Memo искало все заданные слова?
Допустим, если не найдена строка ’123′, тогда ищем ’1234′, если ее нету, то следующий.

BDA

If (Pos('123', Memo1.Lines.Text)<>0) or (Pos('345', Memo1.Lines.Text)<>0) then

тема на форуме