Поиск в RichEdit

[j0di]

Всем доброго времени суток!
У меня возникла проблема, помогите пожалуйста.
В общем мне нужно в тексте, который находиться в RichEdit, найти нужное слово и вывести в этом же RichEdit строчку с этим словом, а оставшийся текст удалить.
Заранее благодарен.

[artemavd]

На форуме поиск в RichEdit обсуждался уже много раз.
http://programmersforum.ru/search.php?searchid=711800

[Serge_Bliznykov]

procedure TForm1.Button1Click(Sender: TObject);
var i, k : integer;
  s : string;
begin
  // подготовка к поиску
  k := -1;
  s := AnsiUpperCase(Edit1.Text);

  // поиск
  for i:=0 to RichEdit1.Lines.Count-1 do
    if Pos(s,AnsiUpperCase(RichEdit1.Lines[i]))>0 then begin
      k := i;
      break;
    end;

  // обработка результатов поиска
  if k<0 then
     Application.MessageBox('Искомый текст не найден.', 'Информация', MB_ICONINFORMATION or MB_OK)
  else begin
    // удаление всех строк, кроме k
    s := RichEdit1.Lines[i];
    RichEdit1.Lines.Clear;
    RichEdit1.Lines.Append(s);
  end;
end;

[j0di]

Serge_Bliznykov, большое спасибо!
А еще можно ли какнить реализовать чтобы поиск находил и отображал все искомые слова, а не первое что он нашел.