TAChain

type TAChain = packed record

  an_Child: PAChain;

  an_Parent: PAChain;

  an_Lock: BPTR;

  an_Info: TFileInfoBlock;

  an_Flags: ShortInt;

  an_String: array [0..0] of AnsiChar;

end;