支持文件拖放关键在于两点：
1、使程序能接收WM_DROPFILES 消息；
2、在WM_DROPFILES 消息的响应程序中取得被拖放的文件名，然后进行相应处理。

使程序能接收WM_DROPFILES 消息
 首先，需要调用WINAPI DragAcceptFiles(handle,True);其中的handle为要接收WM_DROPFILES消息的控件的handle。例如，我们要让Memo1接收该消息，则调用形式为DragAcceptFiles(Form1.Memo1.handle,True);
 其次，要在收到WM_DROPFILES消息时做处理，需要用自己的代码替换该控件的WindowProc方法。在替换前，要保存原来的WindowProc方法以便处理其他消息。为此，我们定义一个全程变量 OldWndProc:TWndMethod保存原来的WindowProc方法;再在窗体定义的Public段定义了一个方法procedure DragFileProc(var Message: TMessage);作为新的WindowProc方法。在Unit的implementation 段内写下DragFileProc的完整代码，当消息为其他消息地调用OldWndProc来处理，当消息为WM_DROPFILES时，作相应处理。

取得被拖放的文件名，然后进行相应处理

 在WM_DROPFILES消息的响应程序中，先调用DragQueryFile(Message.wParam，$FFFFFFFF,nil,0)返回值为拖放的文件总数。再循环调用DragQueryFile(Message.wParam,i,buf,len);取得拖放文件全名。i为0到拖放的文件总数减1 的值，buf为Pchar型，是存放文件名的缓冲区，len为文件名缓冲区长度。至于取得文件名后的处理，就悉听尊便了。一定要注意Pchar和String的转换！

以下为程序片段

type
        TForm1 = class(TForm)
        .
        .
        .
            btnEnableDragFile: TButton;
        .
        .
        .
            procedure btnEnableDragFileClick(Sender: TObject);
        private
                { Private declarations }
        public
                { Public declarations }
            procedure DragFileProc(var Message: TMessage);
        end;
 

implementation

var OLDWndProc:TWndMethod;
.
.
.
procedure TForm1.btnEnableDragFileClick(Sender: TObject);
begin
        DragAcceptFiles(self.MemoDrag.Handle,true);
        OLDWndProc:=self.MemoDrag.WindowProc;
        //保存原来的WindowProc
        self.MemoDrag.WindowProc:=self.DragFileProc;
        //设置新的WindowProc
end;

procedure TForm1.DragFileProc(var Message:TMessage) ;
var i:word;
p:array[0..254]of char;
begin
        if Message.Msg=WM_DropFiles
        then
                begin
                        self.MemoDrag.Clear;
                        i:=DragQueryFile(Message.WParam,$FFFFFFFF,nil,0);
                        //取得拖放文件总数
                        for i:=0 to i-1 do
                        begin
                                DragQueryFile(Message.WParam,i,p,255);
                                 //取得拖放文件名
                                self.MemoDrag.Lines.add(StrPas(p));
                                //对文件的处理
                        end;
                end
    else //其他消息，调用原来的处理程序
            OLDWndProc(Message);
end;
.
.
.