1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
unit messages; interface uses windows; {$DEFINE read_interface} {$DEFINE MESSAGESUNIT} {$I messages.inc} implementation end.