[The Shadow]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

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);