Из ресурса wav (файл hit.wav имя ресурса ''HIT"))

procedure ***;
var hRes: THandle;
   pRes: Pointer;
begin
try
 hRes := LoadResource(HInstance, FindResource(HInstance, 'HIT', RT_RCDATA));
 if hRes=0 then exit;
  pRes:= LockResource(hRes);
  if pRes=nil then Exit;
  PlaySound(pRes, 0, SND_MEMORY or SND_ASYNC);
 finally
 FreeResource(hRes);
 end;
end;