Wie kann ich eine routine in Delphi triggern, wenn ein Systemsound hörbar ist`?

[KodeZwerg]

Es sieht nicht so aus das die Windows Api PlaySound() ein Event feuert das es was abspielt.

Eine Möglichkeit wäre vielleicht den Mixer zu beobachten, wie man das Code-Seitig macht, da bin ich überfragt.