MSG msg;
while(1)
{
  while( PeekMessage(&msg,NULL,0,0,PM_NOREMOVE) )
    if(GetMessage(&msg,NULL,0,0))
     {
      TranslateMessage(&msg);
      DispatchMessage(&msg);
      Form1->Memo1->Lines->Add( IntToStr( msg.wParam ) );
     }
    else
      return;
}