学步园

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