var Song : TSongInfo; //скрипт будет выполнятся постоянно(многократно) PAL.Loop := True; //ставим задержку на 3 песни PAL.WaitForTime('+00:30:00'); //выбираем трек наугад Song := CAT['Station IDs (All)'].ChooseSong(smRandom,NoRules); //добавляем его в начало очереди Aux.QueueSong(Song); Aux.play; Song.Free;