type TMyAttribute = class(System.Attribute) end; ByteAttribute = TMyAttribute; [ByteAttribute()] TClass = class end; begin end.