Ich würde schätzen Du nimmst von der falschen Quelle auf.
Ich denke der Code ist für Line-In ( also Mikro)...
Dann würde es also an der ersten Zeile liegen:
mciSendString('OPEN NEW TYPE WAVEAUDIO ALIAS mySound',nil,0,Handle);
Statt WAVEAUDIO muss was anderes hin...