TAnchorPath

type TAnchorPath = packed record

  case Byte of

    0: (

        ap_First: PAChain;

        ap_Last: PAChain;

        ap_BreakBits_1: LongInt;

        ap_FoundBreak_1: LongInt;

        ap_Length: ShortInt;

        ap_Extended: ShortInt;

      );

    1: (

        ap_Base: PAChain;

        ap_Current: PAChain;

        ap_BreakBits: LongInt;

        ap_FoundBreak: LongInt;

        ap_Flags: ShortInt;

        ap_Reserved: ShortInt;

        ap_Strlen: SmallInt;

        ap_Info: TFileInfoBlock;

        ap_Buf: array [0..1] of Char;

      );

end;