OFFLINE

Buenos días acá comparto este Pal que encontré en la web aclaro no fui el creador

{creado por SIRINICKIS3}

PAL.loop := true;
var Current,Aux : TPlayer;
var Song : TSongInfo;

PAL.WaitForTime('00:00:50';
PAL.WaitForPlayCount(1);

Current := ActivePlayer;
Song := Current.GetSongInfo;

if (Song['songtype'] = 'S' then
begin
Aux := Aux1;
if Aux <> nil then
Song := CAT['Station IDs (All)'].ChooseSong(smRandom, NoRules);
if Song <> nil then
Aux.QueueSong(Song);
Aux.play;
Song.Free;
end;

OFFLINE

Muchas gracias y bienvenido!!!