forum.boolean.name - остановка выполнения до нажатия кнопки

помогите, плиз... я не понял, как на форме останавливать выполнение программы до нажатия заданной кнопки (на клавиатуре или на экране).
к примеру

Код:

var 

     

  NY,LA,l1,c1: integer; 

  begin 

    showForm; 

    c1 := formAddChoice('Where do you live?', Ch_EXCLUSIVE); 

    NY := choiceAppendString(c1, 'New York'); 

    LA := choiceAppendString(c1, 'Los Angeles'); 

    while getKeyClicked = KE_NONE do 

     begin

      delay(1);

     end;  

    if choiceIsSelected(choiceGroupID, NY) then  

      l1 := formAddString('New York'); 

    else 

      l1 := formAddString('Los Angeles'); 

end.

выделенный отрывок - ждёт нажатия кнопки и проходит.
если заменить к примеру на

Код:

  

while getKeyClicked = KE_KEY9  do 

 begin

    delay(1);

 end;

то программа будет ждать нажатия кнопки, и если это будет не девятка, то просто пропустит delay(1); и пойдёт дальше.
как прописать, чтоб программа ждала девятку, игнорируя остальные нажатия?
да, кстати, как в МП реализован переход по лейблам, я что то не нашёл?

З.Ы. заранее извиняюсь, скорее всего уже отвечали, но я по поиску ничего не нашёл=)