var
s:String;
Begin
S:='C:\A.WAV';
If WavOutgetNumDevs > 0 then // Tem placa de som instalada!
PlaySound(PChar(S),0,Snd_ASync);
end;