tAChain

type tAChain = record

  an_Child: pAChain;

  an_Parent: pAChain;

  an_Lock: LongInt;

  an_Info: tFileInfoBlock;

  an_Flags: ShortInt;

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

end;