Gracias por leerme ! use este codigo que es muy facil jeje y anda bastante bien ! pero si alguien quiere aportar algo mas sera bien venido !
saludos !
Código Delphi
[-] Randomize;
cont := Random(8);
if cont = 2 then
(PlaySound('C:\Windows\Media\Entrada de Windows XP.wav', 0, SND_FILENAME or SND_ASYNC));