C++Builder Drag And Drop

class TForm_Main : public TForm {
__published:	// IDE-managed Components
	// ...
private:
	void virtual __fastcall WMDropFiles(TWMDropFiles &Message);

public:
	__fastcall TForm_Main(TComponent* Owner);
	BEGIN_MESSAGE_MAP
	MESSAGE_HANDLER(WM_DROPFILES,TWMDropFiles,WMDropFiles);
	END_MESSAGE_MAP (TForm);
};

TForm_Main *Form_Main;
//---------------------------------------------------------------------------
__fastcall TForm_Main::TForm_Main(TComponent* Owner)
	: TForm(Owner) {
    //
}
//---------------------------------------------------------------------------
void __fastcall TForm_Main::WMDropFiles(TWMDropFiles &Message) {
	UINT FileCount = DragQueryFile((HDROP) Message.Drop, 0xFFFFFFFF, NULL, 0);
	String FileName;
	String FileExtension;

	int FileLength;
	for(UINT ii=0; ii < FileCount; ii++) {
		FileName.SetLength(MAX_PATH);
		FileLength = DragQueryFile((HDROP)Message.Drop, ii,
		FileName.c_str(), FileName.Length());
		FileName.SetLength(FileLength);
		ShowMessage( "X" );
	}
	DragFinish((HDROP) Message.Drop);
}
//###########################################################################
void __fastcall TForm_Main::FormCreate(TObject *Sender) {
	DragAcceptFiles(Form_Main-> Handle, true);
}

void __fastcall TForm_Main::WMDropFiles(TWMDropFiles &Message) {
UINT FileCount = DragQueryFile((HDROP) Msg.Drop, 0xFFFFFFFF, NULL,  0); 
 AnsiString FileName; 
 AnsiString FileExtension; 
 
 int FileLength; 
 for(UINT ii=0; ii < FileCount; ii++) 
 { 
   FileName.SetLength(MAX_PATH); 
 FileLength = DragQueryFile((HDROP)Msg.Drop, ii, 
 FileName.c_str(), FileName.Length()); 
 FileName.SetLength(FileLength); 
 ProcessFile(FileLength) // <------ Whatever you want it to be... 
 } // end for 
 DragFinish((HDROP) Msg.Drop); 
 }

void __fastcall TForm1::WmDropFiles(TWMDropFiles& Message) {
   char buff[MAX_PATH];
   HDROP hDrop = (HDROP)Message.Drop;
   int numFiles = 
      DragQueryFile(hDrop, -1, NULL, NULL);
   for (int i=0;i < numFiles;i++) {
      DragQueryFile(hDrop, i, buff, sizeof(buff));
      // process the file in 'buff'
   }
   DragFinish(hDrop);
 }

__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
	DragAcceptFiles(Handle, 1);
}

AnsiString FileName;

String FileName;