1:
2:

//pchar(der name den du verwendest oder wenn du mit zahlen aggierst die zahl,wie ich mit der 1
PlaySound(PChar(1),hInstance, snd_ASync or snd_Memory or snd_Resource);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

procedure TForm1.FormCreate(Sender: TObject);
begin
  resourceID:= 1;
  {leider kann man mit hinstance, bzw mySong nicht direct mit Bass arbeiten,}
  {wie es das mmsystem kann}
  {darum der Umweg über Speicherreservierung und das laden der Daten in den Speicher}
  mySong:= TResourceStream.CreateFromID(hInstance, ResourceID, 'SOUND');
  GetMem(myMem, mySong.Size);
  mysong.Read(myMem^, mySong.Size);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
    {dies währe mit dem mmsystem, aber da kannst Du nur volume Global regeln}
    //PlaySound(PChar(1),HInstance, snd_ASync or snd_Memory or snd_Resource);
    
    myVolume:= 0.2;//<-- von 0 bis 1
    myPlay:= BASS_StreamCreateFile(True, myMem , 0, mySong.Size, BASS_STREAM_AUTOFREE);
    BASS_ChannelSetAttribute(myPlay, BASS_ATTRIB_VOL, myVolume);
    BASS_ChannelPlay(myPlay, False)
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.PlaySound(iResID: Integer);
begin
  resourceID := iResID;  //Ich kann resourceID auch ganz weglassen und nur mit iResID arbeiten!

  mySong:= TResourceStream.CreateFromID(hInstance, ResourceID, 'SOUND');
  GetMem(myMem, mySong.Size);
  mysong.Read(myMem^, mySong.Size);

  myVolume:= 0.2;//<-- von 0 bis 1
  myPlay:= BASS_StreamCreateFile(True, myMem , 0, mySong.Size, BASS_STREAM_AUTOFREE);
  BASS_ChannelSetAttribute(myPlay, BASS_ATTRIB_VOL, myVolume);
  BASS_ChannelPlay(myPlay, False)
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:

//nimm Arrays, bisx ist die Anzahl Sounds die Du drin hast!
Private
     mySong: Array[1..bisx] of TResourceStream;
     pChan: Array[1..bisx] of HStream;
     myVolume: Array[1..bix] of float;
     myMem: Array[1..bisx] of pointer //<----??????
//usw dann

//im Createteil<--------- nur hier laden der sounds nicht in deiner playroutine
For i:= 1 to bisx do
begin
    mySong[i]:= TResourceStream.CreateFromID(hInstance, i, 'SOUND');
    GetMem(myMem[i], mySong[i].Size);
    mySong[i].Read(myMem[i]^, mySong[i].Size);
end;

myVolume[1]:= 0.2;//<-- einzelen sounds die Lautstärke fix zuordnen
myVolume[2]:= 0.7;
....
...
//usw

//eine PlayProcedure mit Parameter, hier könntest Du auch die Lautstärke individuell noch bestimmen
//wenn du es willst
procedure Mplay(playid: integer); // oder   Mplay(playid: integer; volume: float)
var
  setvolume: float;
begin
    if volume <>  myVolume[playid] then              //<-- nur wenn Du willst
       setvolume:= volume                            //ansonnsten  myVolume[playid] unten rein
    else
       setvolume:= myVolume[playid];
    
    pChan[playid]:= BASS_StreamCreateFile(True, myMem[playid] , 0, mySong[playid].Size, BASS_STREAM_AUTOFREE);
    BASS_ChannelSetAttribute(pChan[playid], BASS_ATTRIB_VOL, setvolume);//<<--hier
    BASS_ChannelPlay(pChan[playid], False);

end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

private
    myPan Array[1..bisx] of float;//<-- nur wenn Du willst, standard ist 0


// im create alle werte auf 0 setzen oder so wie Du es willst


//eine PlayProcedure mit Parameter
Mplay(playid: integer; volume, pan: float);//<-- pan ist -1 gegner schießt von links ;)
var
  ......
  setpan: float;
begin
    .....
    .....
    .....
    if pan <> myPan[playid] then
       setpan:= pan
    else
       setpan:= myPan[playid];
     
   .....
   .....
   BASS_ChannelSetAttribute(pChan[playid], BASS_ATTRIB_VOL, setvolume);
   BASS_ChannelSetAttribute(pChan[playid], BASS_ATTRIB_PAN, setpan);//setpan von -1(links) 0(mitte) bis +1(rechts)
   BASS_ChannelPlay(pChan[playid], False);
end;					

1:
2:
3:
4:
5:
6:

var 
sh:HStream;
sd:TResourceStream;

  sd:=TResourceStream.Create(HInstance,'sound','mp3');
  sr:=BASS_StreamCreateFile(True,sd.Memory,0, sd.Size,BASS_STREAM_AUTOFREE);