Delphi 7, воспроизведение .mp3 с помощью bass.dll. Желательно рассказать подробнее как и что делать

примерно так

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.