Обработка клавиатуры.

[GRAY_WOLF]

Вот тут http://forum.boolean.name/showthread.php?t=7438 уже задавался такой вопрос

Очень полезно добавить функцию обнуления переменных KeyClicked, KeyPressed, а то глюки иногда проскакивают из-за повторной обработки кнопки, которую нажали лишь раз.

иногда ни чего не помогает особенно когда делаешь выход из процедуры

while KeyToAction(GetKeyPressed) <> GA_FIRE do Delay(100); 


[GRAY_WOLF]

Не много по эксперементировав с кодом мне все таки удалось обойти этот 'BUG'

procedure Info;
begin
   begin
     // Text
     Repaint;    while KeyToAction(GetKeyPressed) <> GA_FIRE do Delay(50);
   end;Delay(250);
   begin
   // Text
     Repaint;    while KeyToAction(GetKeyPressed) <> GA_FIRE do Delay(50);
   end;Delay(250);
   begin
      // Text
     Repaint;    while KeyToAction(GetKeyPressed) <> GA_FIRE do Delay(50);
   beginDelay(250);
end; 


Добавление лишних

begin...end; 


в procedure не всегда есть хорошо иногда МР при компиляции сильно ругается.