Дропы на два компонента Memo

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
    TMemo *Memo1;
    TMemo *Memo2;
    void __fastcall Memo1Change(TObject *Sender);
    void __fastcall Memo2Change(TObject *Sender);
private:    // User declarations
void virtual __fastcall WMDropFiles (TWMDropFiles &message);
public:     // User declarations
BEGIN_MESSAGE_MAP    
MESSAGE_HANDLER (WM_DROPFILES,TWMDropFiles,WMDropFiles)  
END_MESSAGE_MAP (TForm);    
    __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{        DragAcceptFiles (Form1->Handle, true); // разрешение на дроп
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Memo1Change(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; // здесь плачит на Ansi
       for (i=0; i<filecount; ++i)
       {
           filename.SetLength(MAX_PATH);
           length = DragQueryFile ((HDROP) message.Drop, i, filename.c_str(), filename.Length());
           filename.SetLength(length);
Memo
 
       }
       DragFinish ((HDROP) message.Drop);
       Memo1->Name=filename;       // вот здесь так хотел  Memo1->Lines=filename;
  }
void __fastcall TForm1::Memo2Change(TObject *Sender)
{
DragAcceptFiles (Form1->Handle, true); // разрешение на дроп
}

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{        
    DragAcceptFiles (Form1->Handle, true);
}
 
//---------------------------------------------------------------------------
void __fastcall TForm1::WMDropFiles (TWMDropFiles &message)  {
    HDROP drop = (HDROP)message.Drop;
    // получаешь количество файлов
    const int iFiles = DragQueryFile(drop, -1, NULL, NULL);
    for (int i = 0; i < iFiles; i++) {
        char path[MAX_PATH];
        // получаешь полный путь к файлу
        DragQueryFile(drop, i, path, sizeof(path));
        const AnsiString sFullFileName(path);
        // используя стандартные функции VCL, получаем отдельно путь и имя
        const AnsiString sPath = ExtractFilePath(sFullFileName);
        const AnsiString sName = ExtractFileName(sFullFileName);
        // дальше используем их в зависимости от назначения
        Memo1->Lines->Add(sPath);
        Memo2->Lines->Add(sName);
    }
    DragFinish(drop);
}