txadDate

type txadDate = record

  xd_Micros: LongWord;

  xd_Year: LongInt;

  xd_Month: Byte;

  xd_WeekDay: Byte;

  xd_Day: Byte;

  xd_Hour: Byte;

  xd_Minute: Byte;

  xd_Second: Byte;

end;