[NumLock]

Код:

type
  TBox = class;

  TBag = class
    FBox: TBox;
  end;

  TBox = class
    FBag: TBag;
  end;