1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
unit uw1331; {$mode objfpc} interface uses Classes, SysUtils; type DummyEnum3 = (tr3,tr4); DummyEnum4 = tr3..tr4; implementation end.