var P : TPlayer; var Song : TSongInfo; var strFile, strPath: String; strPath := 'c:\temp\Liners\'; // Путь к папке, где лежат отбивки часов ActivePlayer.Volume := 255; IdlePlayer.Volume := 255; PAL.Loop := True; PAL.WaitForTime('XX:59:15'); //запускаемся в конце каждого часа. 45 сек - время буферезации, подбираем по свом параметрам, вкусам strFile := strPath + FormatDateTime('hh', now+1/24) + '.mp3'; //определяем название файла с нужными часиками. Формат имени файла XX.mp3 P := Aux1; if P <> nil then begin Aux1.Eject; Queue.AddFile(strFile, ipTop); Aux1.QueueSong(Queue.NextInQueue); ActivePlayer.Volume := 95; IdlePlayer.Volume := 95; Aux1.Play; //PAL.WaitForTime('XX:03:05'); end;