Как решить проблемы с обработкой клавиш?

[integra]

Всем доброго дня.
Вот возникло 2 проблемы (2-я - из 1-й):
1) сделать так, чтобы при изменении "градусника" оперативно менялся комментарий к величине
2) а собственно как потом выйти из этого - коды клавиш не определяются! (Нок-7610)
Текст вот такой:

    gaugeID := FormAddGauge('Тип', true, 3, 1);// собственно градусник - от 1 до 7
while KeyToAction(GetKeyPressed) <> GA_FIRE do // ждем нажатия центральной клавиши
begin
     value := FormGetValue(gaugeID); 
     if value = 1 then strgr:='тип1';
     if value = 2 then strgr:='тип2';
     if value = 3 then strgr:='тип3';
     stringID1 := FormAddString(strgr+' '+integertostring(GetKeyPressed)); //выводит комментарий и добавляет код клавиши
     delay(100); //задержка чтобы не перегружало запросами цикла
     FormRemove(stringID1); //очистка элемента формы комментария для вывода нового значения
end;

Собственно сам градусник с комментарием работает безупречно.А вот цикл и выход из него - никак. И код клавиш всегда "0" - и на телефоне и на эмуляторе. Т.е. дело не в телефоне выходит...
Хэлп ми плиз, люди добрые!

[ViNT]

На сколько понимаю, действие происходит в режиме формы?
Тогда и не должно работать - форма клавиши не обрабатывает, только комманды.