var P    : TPlayer;
var Song : TSongInfo;
var T : Integer;
  PAL.Loop := True;
if Encoders[1].Status='Encoding' then
  begin
  PAL.WaitForTime('+00:00:15');
Encoders[1].Stop;

 PAL.WaitForTime('+00:00:30');
Encoders[1].Start;

 PAL.WaitForTime('+00:00:03');
P := IdlePlayer;
if P <> nil then
begin
 Song := CAT['Promos (All)'].ChooseSong(smRandom,NoRules);
 if Song <> nil then P.QueueSong(Song);
 P := QueuedPlayer;
 if P <> nil then P.Play;

 
 PAL.Loop :=False;
 end;
 end;