остановка выполнения до нажатия кнопки

[Buregon]

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

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); и пойдёт дальше.
как прописать, чтоб программа ждала девятку, игнорируя остальные нажатия?
да, кстати, как в МП реализован переход по лейблам, я что то не нашёл?

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

[IVenoMI]

Во первых:

Поменяй на

 
 
while getKeyClicked <> KE_KEY9  do 
begin
    delay(1);
end;

Во вторых:

Лейблов в МП нет...

[Nibbler]

repeat delay(1000); until GetKeyClicked<>KE_NONE;
:p

[Piligrim]

вообще-то на форме принято пользоваться командами, а не кнопками.