procedure TForm1.Button1Click(Sender: TObject);
begin
if stream<>0 then
BASS_StreamFree(stream);
stream:=BASS_StreamCreateFile(false,PChar('1.mp3'), 0,0,BASS_UNICODE);
if stream=0 then
ShowMessage('111111');
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
BASS_ChannelPlay(stream, true);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
if BASS_Init(-1, 44100, 0, Handle, nil)=false then
ShowMessage('22222');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
BASS_Free();
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
BASS_SetVolume(ScrollBar1.Position/100);
end;