Как переташить mp3 на форму?

void __fastcall TForm1::FormCreate(TObject *Sender)
{
    long x = GetWindowLong(this->Handle, GWL_EXSTYLE) | WS_EX_ACCEPTFILES;
    SetWindowLongPtr(this->Handle, GWL_EXSTYLE, x);
}

class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TMemo *Memo1;
    void __fastcall ActionToolBar1DragOver(TObject *Sender,
          TObject *Source, int X, int Y, TDragState State, bool &Accept);
    void __fastcall FormCreate(TObject *Sender);
private:    // User declarations
    void __fastcall DropFile(TMessage msg);
public:     // User declarations
    __fastcall TForm1(TComponent* Owner);
    BEGIN_MESSAGE_MAP
        VCL_MESSAGE_HANDLER(WM_DROPFILES, TMessage, DropFile);
    END_MESSAGE_MAP(TForm);
};

void __fastcall TForm1::DropFile(TMessage msg)
{
    HDROP hDrop = (HDROP)(msg.WParam);
    char  FileBuf[1024];
    UINT  iFile = 0xFFFFFFFF;
    UINT  cch   = sizeof(FileBuf);
    UINT  FileCount;

    FileCount = DragQueryFile(hDrop, iFile, FileBuf, cch);
    for(iFile = 0; iFile < FileCount; iFile++)
    {
        DragQueryFile(hDrop, iFile, FileBuf, cch);
        Memo1->Lines->Add(FileBuf);
    }
    DragFinish(hDrop);
    TForm::Dispatch((void*)(&msg));
}