[http://neten.org]

Вот из хелпа пример:
menuAppendString
function menuAppendString(text: string): integer;

Добавляет строку к текущему меню. Функция возвращает индекс добавленной записи в меню.
var
tetris, minesweeper, snake : integer;
play, clicked : command;
begin
showMenu('Select a game', CH_IMPLICIT);

tetris := menuAppendString('Tetris');
minesweeper := menuAppendString('Minesweeper');
snake := menuAppendString('Snake');

play := createCommand('Play', CM_SCREEN, 1);
addCommand(play);

repeat
delay(100);
clicked := getClickedCommand;
until clicked = play;

showCanvas; // Показываем графический экран и убираем меню.

if menuGetSelectedIndex = tetris then playTetris;
if menuGetSelectedIndex = minesweeper then playMinesweeper;
if menuGetSelectedIndex = snake then playSnake;

end.