var Song : TSongInfo; var P : TPlayer; PAL.Loop := True; PAL.WaitForTime('+00:15:00'); P := SoundFX; if P <> nil then begin Song := CAT['Station IDs (All)'].ChooseSong(smRandom,NoRules); if Song <> nil then begin P.QueueSong(Song); // P.Play; end; end;