[angvelem]

Можно и без использования потока, вместо.

var
R: TResourceStream;
begin
R:= TResourceStream.CreateFromID(hLib, Random(7)+1, 'sound');
SndPlaySound(R.Memory, SND_ASYNC or SND_MEMORY);
R.Free;
end;

Код:

  PlaySound('01.wav', hLib, SND_RESOURCE or SND_ASYNC or SND_MEMORY);

рандомность вычисляется также.