procedure WMEnterMenuLoop(var msg:TMessage); message WM_ENTERMENULOOP;
procedure WMExitMenuLoop(var msg:TMessage); message WM_EXITMENULOOP;
A program indulásakor elindítunk egy számlálót. Amikor a felhasználó megnyitja a menüt, akkor a számlálót megállítjuk, amikor pedig kilépett a menüből, folytatjuk tovább.