TDTA

type TDTA = packed record

  d_reserved: array [0..20] of ShortInt;

  d_attrib: Byte;

  d_time: Word;

  d_date: Word;

  d_length: dword;

  d_fname: array [0..13] of char;

end;