unit Main;

interface

uses
 Windows, Messages, SysUtils, Classes, Controls, Forms, Bass;

type
 TChannelType = (ctUnknown, ctStream, ctMusic);

type
 TfrmMain = class(TForm)
 btnStop: TButton;
 btnPlay: TButton;
 Label1: TLabel;
 procedure FormCreate(Sender: TObject);
 procedure btnStopClick(Sender: TObject);
 procedure btnOpenClick(Sender: TObject);

 private
 Channel: DWORD;
 ChannelType: TChannelType;
 function BASS_PlaySoundFile(const FileName: string): Boolean;
 end;

var
 frmMain: TfrmMain;

implementation

{$R *.DFM}

function TfrmMain.BASS_PlaySoundFile(const FileName: string): 

Boolean;
 var 
 ChannelInfo: BASS_CHANNELINFO;
 begin
 Result:= False;
 Channel:= BASS_StreamCreateFile(False, PChar(FileName),

 0, 0, 0);
 if (Channel <> 0) then
 ChannelType:= ctStream;
 if (Channel <> 0) then
 begin
 BASS_ChannelPlay(Channel, False);
 end;
 Result:= Channel <> 0; 
 end;

procedure TfrmMain.FormCreate(Sender: TObject);
 var
 BassInfo: BASS_INFO;
 begin 
 BASS_Init(1, 44100, BASS_DEVICE_3D, Handle, nil) 
 BASS_Start;
 BASS_GetInfo(BassInfo);
 end; 

procedure TfrmMain.btnStopClick(Sender: TObject);
 begin
 BASS_ChannelStop(Channel);
 end;

procedure TfrmMain.btnPlayClick(Sender: TObject);
 begin
 BASS_PlaySoundFile('test.mp3')
 end;

end.