//メッセージを受け取るため。ここではダミーとして働く。
MSG msg; 

// キーイベントをクリアする場合
while(PeekMessage(&msg, Form1->Handle, WM_KEYFIRST, WM_KEYLAST, PM_REMOVE));

// マウスイベントをクリアする場合
while(PeekMessage(&msg, Form1->Handle, WM_MOUSEFIRST, WM_MOUSELAST, PM_REMOVE));