Как перетаскивать файлы?

Code:

DragAcceptFiles(Handle, true);

Code:

protected

procedure WMDropFiles (var Msg: TMessage); message wm_DropFiles;

Code:

procedure TForm1.WMDropFiles(var Msg: TMessage);

var

FileName: array[0..256] of char;

begin

DragQueryFile(THandle(Msg.WParam), 0, FileName, SizeOf(Filename));

Memo1.Lines.LoadFromFile(FileName);

DragFinish(THandle(Msg.WParam));

end;

Code:

procedure TForm1.WMDROPFILES(var Msg: TMessage);

var

i, amount, size: integer;

Filename: PChar;

begin

inherited;

Amount := DragQueryFile(Msg.WParam, $FFFFFFFF, Filename, 255);

for i := 0 to (Amount - 1) do

begin

   size := DragQueryFile(Msg.WParam, i, nil, 0) + 1;

   Filename := StrAlloc(size);

   DragQueryFile(Msg.WParam, i, Filename, size);

   listbox1.items.add(StrPas(Filename));

   StrDispose(Filename);

end;

DragFinish(Msg.WParam);

end;