Ok, Thanks.

Well I am currently trying to implement BASS in my project, but it's not working.

[pascal]unit UHXDMMPLAY1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Bass, jpeg, ExtCtrls, Buttons;

type
TForm2 = class(TForm)
Image1: TImage;
FPATHTE1: TEdit;
BTPLAYSTRM1: TSpeedButton;
PSTRM1: TSpeedButton;
STSTRM1: TSpeedButton;
MMFLSTB1: TListBox;
procedure FormCreate(Sender: TObject);
procedure BTPLAYSTRM1Click(Sender: TObject);
private
mods: array[0..128] of HMUSIC;
modc: Integer;
sams: array[0..128] of HSAMPLE;
samc: Integer;
strs: array[0..128] of HSTREAM;
strc: Integer;
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.BTPLAYSTRM1Click(Sender: TObject);
var i: integer;
var f: PChar;
begin


i := MMFLSTB1.ItemIndex;

// Play the stream from the beginning
if i >= 0 then
BASS_ChannelPlay(strs[i], True);
end;

procedure TForm2.FormCreate(Sender: TObject);
begin
modc := 0; // music module count
samc := 0; // sample count
strc := 0; // stream count

// check the correct BASS was loaded
if (HIWORD(BASS_GetVersion) <> BASSVERSION) then
begin
MessageBox(0,'An incorrect version of BASS.DLL was loaded',0,MB_ICONERROR);
Halt;
end;

// Initialize audio - default device, 44100hz, stereo, 16 bits
if not BASS_Init(-1, 44100, 0, Handle, nil) then
begin
Error('Error initializing audio!');
end;

end;

end.[/pascal]

Could someone please help me?

Thank you.