[floks]

var exitCmd, clicked: command;
begin
exitCmd := CreateCommand('Выход', CM_EXIT, 1);
AddCommand(exitCmd);
repeat
clicked := GetClickedCommand;
until clicked <> EmptyCommand;
end.