Cat['зарубежный хит'].QueueBottom(smRandom, EnforceRules); Cat['танцевальный'].QueueBottom(smRandom, EnforceRules Cat['альтернатива'].QueueBottom(smRandom, EnforceRules Cat['остальное'].QueueBottom(smRandom, EnforceRules Cat['новый рок'].QueueBottom(smRandom, EnforceRules
PAL.WaitForTime('XX:15:00');
PAL.Loop := True; PAL.WaitForTime('XX:15:00'); mySong := Cat['promo'].ChooseSong(smRandom, noRules); Aux1.QueueSong(mySong); Aux1.Play; mySong.Free;
var mySong : TSongInfo; PAL.Loop := True; PAL.WaitForTime('XX:15:00'); mySong := Cat['Promos (All)'].ChooseSong(smRandom, noRules); Aux1.QueueSong(mySong); Aux1.Play; mySong.Free;