tAnchorPath

type tAnchorPath = record

  case SmallInt of

    0: (

        ap_First: pAChain;

        ap_Last: pAChain;

      );

    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..0] of Char;

      );

end;