{Нихрена не авто-диджей.
Для зацикливания используйте вот такой PAL-скрипт:

Этот скрипт будет снова и снова повторять треки из листа queue
}

var Song : TSongInfo;
var Q    : TDataSet;

PAL.Loop := True;
PAL.WaitForPlayCount(1);

PAL.LockExecution;
 Q := Query('SELECT filename FROM historylist ORDER BY date_played DESC',[],True);
  if not Q.IsEmpty then
    Queue.AddFile(Q['filename'],ipBottom);
     Q.Free;
     PAL.UnlockExecution;