EncodeTime

function EncodeTime(const Hour, Min, Sec, MSec Word):TclDateTime;

The EncodeTime function generates a TclDateTime return value from the passed Hour, Min, Sec and MSec (millisecond) values.
The permitted parameter values are :
Hour = 0..23
Min = 0..59
Sec = 0..59
MSec = 0..999

Example:

var
  myDate : TclDateTime;

begin
  // Set my date variable using the EncodeTime function
  myDate := EncodeTime(12, 50, 40, 231);
  ShowMessage('Date set to '+TimeToStr(myDate));
end;

Output:

Time set to 12:50:40