Джингл после каждого трека

14.08.2011

Добрый день.
Мне необходимо выводить в эфир джингл после каждого трека (SamBroadcaster)
Представляю себе это так:
PAL.Loop := True;
PAL.WaitForPlayCount(1);
CAT['Jin'].QueueTop(smRandom, NoRules);
В результате получаю постоянное вещание только джинглов.
В чем ошибка моего когда?

14.08.2011

var Song : TSongInfo;
PAL.Loop := True;
PAL.WaitForPlayCount(1);
Song := CAT['Jin'].ChooseSong(smRandom,NoRules);
Queue.Add(song,ipTop);
Вообще есть уже тема, посвященная скрипта для SAMа, там много чего есть.
**********

14.08.2011

PAL.Loop := True;
PAL.WaitForPlayCount(2);
CAT['Jin'].QueueTop(smRandom, NoRules);