Necesito ayuda para cargar varios sonidos en memoria

[[Caral]]

Hola

Código Delphi [-]
procedure TForm1.Button7Click(Sender: TObject);
var
  s: string;
begin
s := 'C:\Windows\Media\'+Edit1.text+'.wav';
sndPlaySound(PCHar(s),
  SND_NODEFAULT Or SND_ASYNC Or SND_LOOP);
  Showmessage('El numero que salio es::::::'+Edit1.text);
  sndPlaySound(nil, 0); // Detiene el sonido
end;

Saludos
PD: Gracias a enecumene.