BCB 如何让Application收到SendMessage发送来的消息