Отбивка часа в Сэме. Все это хорошо, но есть один огромный недостаток

Всем привет!
Хочу Вам напомнить о скрипте отбивки часа в Сэме.Работает-то он отлично, но есть один огромнейший недостаток: исполнилось ХХ:59:15 и Cэм плавно прекращает песню и включает всю эту историю.. Ведь может быть, что песня только началась и т.д... Хочу попросить, может кто знает.. в общем как сделать так, чтоб этот скрипт хотя бы ждал конца текущей песни, а потом уже включал отбивку? за ранее огромное спасибо.
Кто не видел или забыл скрипт, вот:

Показать / Cкрыть текст

var P    : TPlayer;
var Song : TSongInfo;
var strFile, strPath, strJingle : String;

strPath := 'C:\CLOCK\'; // Путь к папке, где лежат отбивки часов
strJingle := 'C:\CLOCK\start_hour.mp3'; //Путь и название джингла после отбивки часов

PAL.Loop := True;

PAL.WaitForTime('XX:59:15'); //запускаемся в конце каждого часа. 45 сек - время буферезации, подбираем по свом параметрам, вкусам

strFile := strPath + FormatDateTime('hh', now+1/24) + '-00.mp3'; //определяем название файла с нужными часиками. Формат имени файла XX-XX.mp3

P := Aux1;
if P <> nil then
begin

    Queue.AddFile(strJingle, ipTop);
    Queue.AddFile(strFile, ipTop);

P := ActivePlayer;
if P <> nil then P.FadeToNext;

end;

пообщаться можем по аське: 563148534