function EncodeTime(Hour: Integer; Minute: Integer; Second: Integer; MSecond: Integer; UTC: Boolean=False): Integer
X := TimeToStr(EncodeTime(12,10,0,0)); // X is '12:10 PM'