[b]Проигрывание трэка поверх звучащего:[/b] var Song : TSongInfo; var P : TPlayer; PAL.Loop := True; // скрипт будет выполнятся постоянно PAL.WaitForTime('+00:10:00'); // задержка в 10 секунд P := SoundFX; // через что играть if P <> nil then begin Song := CAT['Каталог'].ChooseSong(1,NoRules); if Song <> nil then begin P.QueueSong(Song); // P.Play; end; end;