[san-46]

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  S : String;
begin
  //замена всех символов перевода строки
  S := StringReplace(Memo1.Lines.Text, #13#10, ' ', [rfReplaceAll]);
  //поиск
  if Pos('<здесь указываем слово или группу слов>', S) > 0 then 
    //нашли слово (группу слов)
  else
    //не нашли
end;

//если поиск должен быть не зависимым от регистра букв, то искомые слова пишем 
//заглавными буквами и применяем к исходному тексту функцию AnsiUpperCase
//if Pos('<ЗДЕСЬ УКАЗЫВАЕМ СЛОВО ИЛИ ГРУППУ СЛОВ>', AnsiUpperCase(S)) > 0 then