Конструктор класса
constructor Create(aCode: int64; aGranted: boolean; aState: TItemState); reintroduce;