drag and drop плей листа (bass.dll)

#include <vcl.h>
#include "bass.h"
#pragma hdrstop
 
#include "Unit2_player.h"
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
HSAMPLE samp;
HSTREAM chan;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
 
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
 AnsiString b="C:\\olololo.mp3";
char *a=b.c_str();
chan=BASS_StreamCreateFile(FALSE, a, 0, 0, 0);
 
BASS_ChannelPlay(chan,FALSE);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::FormCreate(TObject *Sender)
{
 BASS_Init( -1,44100, BASS_DEVICE_3D,0,NULL);
}

    void __fastcall WMDROPFILES(TMessage&);// Обработчик перетаскивания файлов
 
    BEGIN_MESSAGE_MAP
      MESSAGE_HANDLER(WM_DROPFILES,TMessage,WMDROPFILES);    // Сообщение о перетаскивании файлов
    END_MESSAGE_MAP(TComponent);

// Вкл перетаскивание
DragAcceptFiles(Handle, True);

//------------------------ Перетаскивание файлов -------------------------------
void __fastcall TFMyDeskTop::WMDROPFILES(TMessage &Msg)
{
char chFileName[256];
int Count;
Count = DragQueryFile((void*) Msg.WParam, 0xFFFFFFFF,chFileName,sizeof(chFileName)); // число перетащенных файлов
 
for (int i=0;i<Count;i++)//цикл по файлам
  {
   DragQueryFile((void*)Msg.WParam,i,chFileName,sizeof(chFileName)); // запрос имени файла
   // ЧитоТо
  }
DragFinish((void*)Msg.WParam); // завершение перетаскивания
}
//---------------------------------------------------------------------------

// Выкл перетаскивание
DragAcceptFiles(Handle, False);

for (int i=0;i<Count;i++)//цикл по файлам
  {
   DragQueryFile((void*)Msg.WParam,i,chFileName,sizeof(chFileName)); // запрос имени файла
   ListBox1->Items->Add(chFileName);
  // Чито-То ИчО 
  }

TFMyDeskTop::WMDROPFILES(TMessage &Msg)

    void __fastcall WMDROPFILES(TMessage&);// Обработчик перетаскивания файлов
 
    BEGIN_MESSAGE_MAP
      MESSAGE_HANDLER(WM_DROPFILES,TMessage,WMDROPFILES);    // Сообщение о перетаскивании файлов
    END_MESSAGE_MAP(TComponent);

void __fastcall TForm2::WMDROPFILES(TMessage &Msg)
{
char chFileName[256];
int Count;
Count = DragQueryFile((void*) Msg.WParam, 0xFFFFFFFF,chFileName,sizeof(chFileName)); // число перетащенных файлов
 
for (int i=0;i<Count;i++)//цикл по файлам
  {
   DragQueryFile((void*)Msg.WParam,i,chFileName,sizeof(chFileName)); // запрос имени файла
   ListBox1->Items->Add(chFileName);
   // ЧитоТо
  }
DragFinish((void*)Msg.WParam); // завершение перетаскивания
 
DragAcceptFiles(Handle, False);
}

DragAcceptFiles(Handle, True);

 DragQueryFile((void*)Msg.WParam,i,chFileName,sizeof(chFileName)); // запрос имени файла

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
if(OpenDialog1->Execute())
 {
  ListBox1->Items->AddStrings(OpenDialog1->Files);// или ListBox1->Items->Assign(OpenDialog1->Files);
 }
}
//---------------------------------------------------------------------------