[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 не всегда есть хорошо иногда МР при компиляции сильно ругается.