1type 2 TPDFLineCap = (lcBuss, lcRound, lcProtecting);
Или
1type 2 TPDFLineCap = TOleEnum; 3const 4 lcBuss = $00000000; 5 lcRound = $00000001; 6 lcProtecting = $00000002;
Элементы перечисления: