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); end;