procedure TForm1.Button1Click(Sender: TObject);beginif Bass_ChannelIsActive(song) = Bass_Active_Playing thenBass_Pause()elseBass_Start()end;
procedure TForm1.Button1Click(Sender: TObject);beginif Bass_ChannelIsActive(song) = Bass_Active_Playing thenBass_ChannelPause(song)elseBass_ChannelResume(song)end;