procedure DecodeTime(const DateTime: TDateTime; var Hour, Min, Sec, MSec: Word)  

Извлекает из даты/время составляющие: часы, минуты, секунды, миллисекунды.

Параметры:

• DateTime - значение дата/время.
• Hour - часы.
• Min - минуты.
• Sec - секунды.
• MSec - миллисекунды.