var P : TPlayer; var Song : TSongInfo; var strFile, strPath, strJingle : String; strPath := 'C:\CLOCK\'; PAL.Loop := True; PAL.WaitForTime('XX:59:45'); P := SoundFX; strFile := strPath + FormatDateTime('hh', now+1/24) + '-00.mp3'; Queue.AddFile(strFile, ipTop); Song := Queue.NextInQueue; P.QueueSong(Song); P.Play;