var Song : TSongInfo; //скрипт будет выполнятся постоянно(многократно) PAL.Loop := True; //ставим задержку на x времени //PAL.WaitForTime('+00:10:00'); //ставим задержку на х песен (в данном случае стоит задержка в 3 трека) PAL.WaitForPlayCount(3); //выбираем трек наугад Song := CAT['Jingles (All)'].ChooseSong(smRandom,NoRules); //добавляем его в начало очереди Queue.Add(song,ipTop);