Поиск нескольких слов в строке

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

BDA

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

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