Das problem liegt daran das das Prog den Eingang umschlten tut und da kann man soviel hin und herstellen wie man will.
Also Ultimator ändere die erste Zeile von mciSendString('OPEN NEW TYPE WAVEAUDIO ALIAS mySound',nil,0,
Handle);
nach z.b. mciSendString('OPEN NEW TYPE LINEIN ALIAS mySound',nil,0,
Handle);