Работа со звуком в Delphi

Нужно написать ПРОСТУЮ процедуру (или функцию) на Delphi 7. Она должна делать следующее: постоянно (может, через каждые 0.2 сек) следить за выходом звуковой карты и сообщать в случае появления звукового сигнала (звуковые колонки в это время отключены и звука не слышно - это важно). Сигнал появляется на некотором сайте в произвольный момент времени и имеет длительность 2-5 секунд.  Никакой записи звука не нужно.  Просто процедура устанавливает в этом случае некоторую глобальную переменную в TRUE или что-то в этом роде. Предлагайте цену и сроки выполнения.