Reproduzindo som

Olá,
Muita gente não sabe colocar Som no seu programa, ou um dia ja teve curiosidade de como funciona !
É muito simples, faça:

Inclua na Uses

Código:

[color="#00bfff"]MMSystem[/color]

Depois escolha qual a forma que você deseja colocar:

Código:

{ Síncrona: aguarda terminar a reprodução para continuar: }
SndPlaySound('Caminho', SND_SYNC);

{ Assíncrona: a execução continua normalmente enquanto
  ocorre a reprodução: }
SndPlaySound('Caminho', SND_ASYNC);

{ Contínua: a reprodução é repetida num efeito de loop.
  Este tipo de reprodução precisa ser assíncrona: }
SndPlaySound('Caminho',
  SND_ASYNC or SND_LOOP);

{ Interrompe uma reprodução contínua: }
SndPlaySound(nil, 0);