[BASSON XVI]

Здрасте! У меня тут такое дело! Пишу на Мидлет Паскале недавно! Куча вопросов! Подскажите пожайлуста!
Короче я прописываю булеаны!
Пишу procedure!
Но как мне назначить на софт клавиши переход с одной процедуры на другую? И как назначить выход тоже не знаю! Подскажите!
Пример:

program BASSON XVI;
var
ok,exit,menu : command;

Bulmenu:bolean;

procedure menu;
  begin
  {  }   
    ok := createCommand('OK', CM_OK, 1); 
    showForm; 
    addCommand(ok); 
    nameField := formAddTextField('Введите ваше имя', '', 20, TF_ANY);
end;
begin
    {  }   
    menu := createCommand('MENU', CM_OK, 1); 
    exit := createCommand(‘EXIT’, CM_EXET, 0);
    showForm; 
    addCommand(menu); 
    addCommand(exit);
    repaint;
      while getClickedCommand <> exit do //Это правлино из проги выйдет?
  begin end;  
//---- А как назначит на MENU переход на болеан Bulmenu не знаю!------

Спасибо заранее! И кто скажет поставлю +!