[SCrat.ORS]

Код:

    TrayMenu:=CreatePopupMenu;
    SubTrayMenu:=CreatePopupMenu;

//Создание подменю
    AppendMenu(SubTrayMenu, MF_STRING, 3, '1 минуту');
    AppendMenu(SubTrayMenu, MF_STRING, 4, '2 минуты');
    AppendMenu(SubTrayMenu, MF_STRING, 5, '5 минут');
    AppendMenu(SubTrayMenu, MF_STRING, 6, '10 минут');
    AppendMenu(SubTrayMenu, MF_STRING or MF_SEPARATOR, 0, nil);
    AppendMenu(SubTrayMenu, MF_STRING, 7, 'Другое...');
//----------------------

//Создание основного меню
    AppendMenu(TrayMenu, MF_STRING or MF_DEFAULT, 1, 'Учетные записи...');
    AppendMenu(TrayMenu, MF_SEPARATOR, 0, nil);

   // Вставляем ПодМеню
    AppendMenu(TrayMenu, MF_STRING or MF_POPUP, SubTrayMenu, 'Проверять каждые');
   //------------------

    AppendMenu(TrayMenu, MF_STRING, 13, 'О программе...');
    AppendMenu(TrayMenu, MF_STRING, 666, 'Выход');
    SetMenu(Wnd, TrayMenu);