TCode

type TCode = packed record

  CheckValue: Word;

  Expiration: Word;

  InvalidCount: Word;

  case Byte of

    0: (

        FirstDate: Word;

        EndDate: Word;

      );

    1: (

        Days: Word;

        LastAccess: Word;

      );

    2: (

        RegString: LongInt;

      );

    3: (

        SerialNumber: LongInt;

      );

    4: (

        UsageCount: Word;

        LastChange: Word;

      );

    5: (

        Value: LongInt;

      );

    6: (

        NetIndex: LongInt;

      );

end;