Как сделать такое контекстное меню для Edit в Delphi?

Поместить отмеченный компонент на Форму.
Двойной левый клик на компоненте -
запуск мастера меню.
Выделенную пунктиром область обзываете - в
caption инспектора объектов (синус и т. д.) .
Правой кн. мышки на пункте меню - выбор
подменю Create Submenu - обзываете в
caption .
После каждого ввода в caption - "Enter"
Шаблон процедуры создается при клике на
созданном пункте меню (подменю ).