var
 hResource: THandle; //хендл
 pData: Pointer;//указатель на ресурс
begin
 hResource :=LoadResource( hInstance, FindResource(hInstance, name, RT_RCDATA));
 pData := LockResource(hResource);
 SndPlaySound(pData, SND_MEMORY);
 FreeResource(hResource);
end;