DecodeTime(Time: TDateTime; var Hour, Min, Sec, MSec: Word);
它只是把时间全部从TIME里分出来分别放入Hour, Min, Sec, MSec中,你只要Hour、Min
的话,你只取Hour、Min就是了,可以不管Sec、MSec
showmessage('the current time is'+inttostr(hour)+':'+inttostr(min));
OK!