[The Shadow]

Не получается добавить сабменю в PopupMenu

Код:

    TrayMenu:=CreatePopupMenu;
    AppendMenu(TrayMenu, MF_STRING or MF_DEFAULT, 1, 'Учетные записи...');
    AppendMenu(TrayMenu, MF_SEPARATOR, 0, nil);
    AppendMenu(TrayMenu, MF_STRING, 2, 'Проверять каждые');
    //Следующие пункты - подменю
    AppendMenu(TrayMenu, MF_STRING or MF_POPUP {пробовал и MF_APPEND и MF_INSERT}, 3, '1 минуту');
    AppendMenu(TrayMenu, MF_STRING or MF_POPUP, 4, '2 минуты');
    AppendMenu(TrayMenu, MF_STRING or MF_POPUP, 5, '5 минут');
    AppendMenu(TrayMenu, MF_STRING or MF_POPUP, 6, '10 минут');
    AppendMenu(TrayMenu, MF_STRING or MF_SEPARATOR or MF_POPUP, 0, nil);
    AppendMenu(TrayMenu, MF_STRING or MF_POPUP, 7, 'Другое...');
    //Конец подменю
    AppendMenu(TrayMenu, MF_STRING, 13, 'О программе...');
    AppendMenu(TrayMenu, MF_STRING, 666, 'Выход');
    SetMenu(Wnd, TrayMenu);