Hola sagdec.
No sé si es lo que estás buscando, pero llamando de este modo a la función
SndPlaySound se repetirá el sonido.
Un ejemplo:
Código Delphi
[-]
uses MMSystem;
...
var
FS: string;
begin
FS:= 'C:\Windows\Media\ding.wav';
SndPlaySound(PChar(FS), SND_LOOP or SND_ASYNC);
...
Más datos sobre:
PlaySound function
Un saludo.