var P : TPlayer; P := DeckA; P.Next; P.Play;
var P : TPlayer; Queue.Clear; //очищаем список Queue.AddDir('C:\Music',True,ipTop); // Добавляем папку с музыкой Queue.Shuffle; //перемешиваем P := DeckA; P.Next; P.Play;