直接定义记录和变量

var

 TimeStamp         : record

   case byte of

     1: (Whole: comp);

     2: (Lo, Hi: LongInt);

 end;