DecodeTime

procedure DecodeTime(const SourceDateTime TclDateTime; out Hour, Min, Sec, MSec Word);

The DecodeTime procedure extracts the hours, minutes, seconds, and milliseconds from a given TclDateTime type value.

It stores the values ​​in output variables: Hour, Min, Sec and MSec.

Example:

var
  myHour, myMin, mySec, myMilli : Word;

begin
  DecodeTime(Now, myHour, myMin, mySec, myMilli);
  ShowMessage('Time now = '+TimeToStr(Now));
  ShowMessage('Hour     = '+IntToStr(myHour));
  ShowMessage('Minute   = '+IntToStr(myMin));
  ShowMessage('Second   = '+IntToStr(mySec));
  ShowMessage('MilliSec = '+IntToStr(myMilli));
end;

Output:

Time Now = 16:02:07
Hour = 16
Minute = 2
Second = 7
MilliSec = 807