Помогите со скриптом для СЭМа по отбивки часа.

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

PAL.Loop := True;

i := ActivePlayer.GetVolume;

P := SoundFX;

strPath := 'D:\CLOCK\'; //путь к папке с отбивкой

PAL.WaitForTime('XX:59:54'); //запускаемся в конце каждого часа

strFile := strPath + FormatDateTime('hh', now+1/24) + '-00.mp3';
Queue.AddFile(strFile, ipTop);
Song := Queue.NextInQueue;
P.QueueSong(Song);

ActivePlayer.FadeToPause;
P.Play;
PAL.WaitForTime('+00:00:10');
ActivePlayer.FadeToNext;