type TBoldLine = record public const LineWidth = 10; end;var Line: TBoldLine;begin //accessible via instance and via type WriteLn('width is ', Line.LineWidth); //width is 10 WriteLn('width is ', TBoldLine.LineWidth);end.