Drag Drop файлов

class TForm1 : public TForm
{
private:
void __fastcall WMDropFiles(TWMDropFiles message);
public:
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(WM_DROPFILES,TWMDropFiles,WMDropFiles)
END_MESSAGE_MAP(TForm);
};

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
DragAcceptFiles(Form1->Handle, true); 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::WMDropFiles(TWMDropFiles message)
{
int filecount, length, i;
filecount = DragQueryFile ((HDROP) message.Drop, 0xFFFFFFFF/*-1*/, NULL, 0);
AnsiString filename;
for (i = 0; i < filecount; i++) 
{
filename.SetLength(MAX_PATH);
length = DragQueryFile((HDROP)message.Drop, i, filename.c_str(), filename.Length());
filename.SetLength(length);
ShowMessage(filename);
}
DragFinish ((HDROP) message.Drop);
}
//---------------------------------------------------------------------------