WORD pascal GetMessage(LPMSG lpMsg)

  This function returns the next message in the system message queue.
If there is no message pending, it will wait for a message to occur.
The message will be removed from the message queue.

Parameters
  lpMsg is a pointer to a MSG structure.

Returns
  This function returns the message field of the MSG structure.