procedure lazy() Var Msg: TMsg; begin sleep(1000); While PeekMessage(msg, 0, WM_KEYFIRST, WM_KEYLAST, PM_REMOVE or PM_NOYIELD ) Do; end;