forum.boolean.name - Как решить проблемы с обработкой клавиш?

Всем доброго дня.
Вот возникло 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" - и на телефоне и на эмуляторе. Т.е. дело не в телефоне выходит...
Хэлп ми плиз, люди добрые!