Организация функции ПОИСК в Tmemo

Итак, на форме должны быть TMemo (Editor) , TFindDialog (FindDialog) и TButton (Button) .Теперь напишем обраобтчик на нажатие кнопки Найти далее в диалоге Поиск.Открытие диалога Поиск.Теперь напишем код собственно поиска.{ код поиска вниз }.{ код поиска вверх }.Это для поиск далее.Представленный ниже код я использовал при написании текстового редактора.Всё вроде работает.В Editor свойство HideSelection должно быть False.