Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

procedure EmptyKeyQueue;
 var
   Msg: TMsg;
 begin
   while PeekMessage(Msg, 0, WM_KEYFIRST, WM_KEYLAST,
     PM_REMOVE or PM_NOYIELD) do;
 end;

 procedure EmptyMouseQueue;
 var
   Msg: TMsg;
 begin
   while PeekMessage(Msg, 0, WM_MOUSEFIRST, WM_MOUSELAST,
     PM_REMOVE or PM_NOYIELD) do;
 end;