Тема: Pal скрипт
Привет всем!
В общем есть скрипт:
var P : TPlayer;
var Song : TSongInfo;
var OldTime : DateTime;
OldTime := Now;
PAL.Loop := True;
PAL.WaitForTime('+00:30:00');
P := SoundFX;
if P <> nil then
If (OldTime>T['07:00:00']) AND (OldTime<=T['00:00:00']) Then
begin
Song := CAT['Station IDs (All)'].ChooseSong(smRandom,NoRules);
if Song <> nil then
begin
P.QueueSong(Song); //
P.Play;
end;
end;
И есть ещё один абсолютно идентичный, только каталоги поменял и параметр "OldTime", его выкладывать нету смысла, т.к. он работает нормально, а с этим какая-то беда.
В чём может быть ошибка, в данном скрипте?