function GetPackedTime: Longword;
  var
    TimeNow: YDayTime;
  begin
    TimeNow.Hours := DivModU(DateTimeToTimeStamp(Now).Time div 60000, 60, TimeNow.Minutes);
    Result := (TimeNow.Hours shl 6) + TimeNow.Minutes;
  end;