1:
2:
3:

if not BASS_ChannelPlay(strs[1], False) then
      showmessage('Error playing stream!');
  bass.BASS_SetVolume(trackbar2.Position);					

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

procedure TForm1.FormCreate(Sender: TObject);
begin
  if not BASS_Init(-1, 44100, 0, Handle, nil) then
    showmessage('Error initializing audio!');
end;

{Bei play funktion}
bass.BASS_ChannelStop(strs[1]);
  f := PChar(datei2.Items.Strings[datei.ItemIndex] + datei.Items.Strings[datei.ItemIndex]);
  strs[1] := BASS_StreamCreateFile(False, f, 0, 0, 0);
  if strs[1] <> 0 then
  else
    showmessage('Coudn t load file!!');
  i := datei.ItemIndex;
  // Play the stream (continuing from current position)
  if i >= 0 then
    if not BASS_ChannelPlay(strs[1], False) then
      showmessage('Error playing stream!');
  bass.BASS_SetVolume(trackbar2.Position);