var mySong : TSongInfo; PAL.Loop := True; if (deckA.Status=1) and (deckB.Status=1) then begin mySong := Cat['All'].ChooseSong(smRandom, noRules); deckA.QueueSong(mySong); deckA.Play; CAT['All'].QueueBottom(smLemmingLogic, NoRules); end;