Cette procédure permet d'extraire d'un enregistrement «TDateTime» dans les variables heures (Hour), minutes (Min), secondes (Sec) et millisecondes (MSec).

Procedure DecodeTime(Time: TDateTime; Var Hour, Min, Sec, MSec: Word);