DTA

type DTA = record

  d_reserved: array [1..21] of Byte;

  d_attrib: Byte;

  d_time: Word;

  d_date: Word;

  d_length: LongInt;

  d_fname: string;

end;