Как принимать перетаскиваемые файлы из проводника?

Code:

type

TForm1 = class(TForm)

   ListBox1: TListBox;

   procedure FormCreate(Sender: TObject);

protected

   procedure WMDROPFILES (var Msg: TMessage); message WM_DROPFILES;

private

public

end;

var

Form1: TForm1;

implementation

uses shellapi;

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);

begin

DragAcceptFiles(Form1.Handle, true);

end;

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;