TAnchorPathOld

type TAnchorPathOld = record

  case SmallInt of

    0: (

        ap_First: PAChain;

        ap_Last: PAChain;

      );

    1: (

        ap_Base: PAChain;

        ap_Current: PAChain;

        ap_BreakBits: LongWord;

        ap_FoundBreak: LongWord;

        ap_Flags: ShortInt;

        ap_Reserved: ShortInt;

        ap_Strlen: Word;

        ap_Info: TFileInfoBlock;

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

      );

end;