var
  samp: HSAMPLE;
  chan: HCHANNEL;

procedure TForm1.FormCreate(Sender: TObject);
begin
  BASS_Init(-1,44100,0,Handle,nil);
end;

procedure TForm1.Button1Click(Sender: TObject);
var AFile: PAnsiChar;
begin
  AFile := 'C:\Test.mp3';
  samp := BASS_SampleLoad(false,AFile,0,0,3,0);
  chan := BASS_SampleGetChannel(samp,true);
  BASS_ChannelPlay(chan,false);
end;

procedure TForm1.Button2Click(Sender: TObject);
var X: Array[0..2047] of DWORD;
begin
  FillChar(X[0],Length(X)*SizeOf(DWORD),0);
  BASS_ChannelGetData(chan, @X[0], 2048);
end;

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