Changes: Added TDragState to Controls.pp Added a bunch of Message records to Message.pp and some const.