[Spy_new]

Тогда может подскажете как можно организовать меню с под меню и с под под меню, т.е. есть какое-то меню имеющее некоторое количество пунктов. При выборе пункта 1 появляется подменю первого пункта, а при выборе в нём какого то пункта появляется ещё одно под меню. Так вот весь вопрос в том, как сделать переход в обратную сторону, т.е. находясь в подменю нажав кнопочку назад попасть в предыдущее мню. Может подскажете как это проще сделать.

program menu;
var Number1, Number2, Number3, Number4 : integer;  
    show, clicked, Back : command; 

begin 
    showMenu('Выберите пункт', CH_IMPLICIT);  
     
    Number1 := menuAppendString('Пункт 1');  
  
    show := createCommand('Показать', CM_SCREEN, 2);  
    addCommand(show);  
    repeat  
        delay(100);  
        clicked := getClickedCommand;  
    until clicked = show;  
    
    if menuGetSelectedIndex = Number1 then
      begin
      showMenu('Выберите пункт', CH_IMPLICIT);  
     
       Number1 := menuAppendString('Пункт 1');  
       Number2 := menuAppendString('Пункт 2');  
       Number3 := menuAppendString('Пункт 3');
       Number4 := menuAppendString('Пункт 4');
      
    Back := createCommand('Назад', CM_EXIT, 1);
    show := createCommand('Выход', CM_SCREEN, 2);  
    addCommand(show);
    addCommand(Back);  
    repeat  
        delay(100);  
        clicked := getClickedCommand;  
    until clicked = show;          
      end; 
     
end.