Люди, как мне в ActionList после добавки (допустим посика) привязать экшен к текстовому полю Memo?

Делаем прстой блокнот с поиском причем без кода


Берем форму. Кладем на него TMemo . Устанавливаем Align = alClient. Кладем компоненты TActionList, TImageList, TMainMenu. Имеем на форме Memo1, ActionList1, ImageList1, MainMenu1. Cвойству Images у компонентов ActionList1 и MainMenu1 присваиваем ImageList1. Открываем Action List Editor. В список Actions добавляем TSearchFind, TSearchFindNext и TSearchReplace
У Мемо1 устанавливаем свойство HideSelection = false. Открываем Menu Designer. Набираем в Caption первого пункта норизонтального меню слово "Search". Сразу появится возможность для заполнения первого ниспадающего меню. Для него ничего не набираем. Заполняем только свойство Action. Значение выбираем из списка. Присвиваем ему SearchFind1. После этого появится возможность заполнить следующий пункт меню. Для него выбираем SearchFindNext1 и для последнего пункта меню соответсвенно SearchReplace1.
ВСЕ!!!
Компилируем и запускаем программу. Имеем окно с текстовым редактором и меню Search c с подпунктами Find... Find Next Replace.
Набираем текст .Выбираем Find... , набираем искомый текст, ищем первое совпадение после курсора. Закрываем. Нажимаем F3 и псоледовательно находим остальные включения.