Delphi7. Поиск в TRichEdit

[Andrei]

Помогите правильно и красиво оформить поиск в TRichEdit или TMemo.

Для организации поиска я воспользовался standart action TSerachFind из ActionList. Написал обработчик для TSearchFind.Dialog.OnFind:

 
procedure TForm1.SearchFind1FindDialogFind(Sender: TObject);
begin
 SearchFind1.Search(Sender);
 RichEdit1.SetFocus;
end;

После выполнения поиска устанавливаю фокус на RichEdit чтобы был виден результат поиска (выделенный блок). Это работает, но RichEdit графически не ослеживает, если выделенный блок выходит за пределы отображаемой части RichEdit.

Посоветуйте как сделать чтобы отображаемая область RichEdit отслеживала перемещение выделенного блока.
Уфф... Надеюсь понятно выразился.