[Algo]

Вечер добрый, уважаемые кодеры!

Возникла трабла - никак не могу разобраться с правильным расположением команд и их реацией ... Смысл в чем, при запуске проги на экране появляется меню с некоторым набором пунктов, при выборе пункта показывается TextBox или Form-а (или что-то подобное), соответственно, одной из софт-клавиш есть возможность вернуться на шаг назад в родительское меню, но... почему-то в моем случае приложение завершается...
Объясните, пожалуйста, в чем моя ошибка и большая просьба разъяснить правильное использование команд (хронологию относительно основного кода в различных случаях (чтобы одна не перекрывала другую) и т.п.).

program TestMenu;

var
    m1, m2, m3: integer;
    choose, back, exit, clicked: Command;

begin
        ShowMenu('Menu', CH_IMPLICIT);
        m1 := menuAppendString('Menu point #1');
        m2 := menuAppendString('Menu point #2');
        m3 := menuAppendString('Menu point #3');
        
        choose := createCommand('Choose', CM_OK, 2);        
        addCommand(choose);
        repeat
            delay(100);
            clicked := GetClickedCommand;
        until    
            clicked = choose;
        
        if menuGetSelectedIndex = m1 then
            showTextBox('Test text box', 'Selected 1-st menu point', 2000, TF_ANY);
        
        if menuGetSelectedIndex = m2 then
            showTextBox('Test text box 2', 'Selected 2-nd menu point', 2000, TF_ANY);
        
        if menuGetSelectedIndex = m3 then
            showTextBox('Test text box 3', 'Selected 3-rd menu point', 2000, TF_ANY);
    
        back := createCommand('<- Back', CM_BACK, 1);
        addCommand(back);    
            
        repeat
            delay(100);
            clicked := GetClickedCommand;
        until
            clicked = back;
        
    exit := createCommand('Exit', CM_EXIT, 2);
    addCommand(exit);
    repeat
            delay(100);
            clicked := GetClickedCommand;
        until
            clicked = exit;
end.