drag and drop и Tlistview

[Кольша]

Привет всем!!! пишу маленькую программу с использованием Tlistview не подскажете как обработать сообщение WM_DROPFILES только для Tlistview ,а не для всей формы или как сделать поддержку drag and drop для Tlistview?
я делаю так на создание формы пишу DragAcceptFiles(listview.handle, true);
обрабатываю сообщение :

var
  FileName: array[Byte] of Char;
begin
  SetForegroundWindow(Handle);
  DragQueryFile(Message.wParam, 0, @FileName, SizeOf(FileName));
тут добавляю но нечего не происходит как быть?

[grafgrial]

А кто будет строку добавлять?
вот пример

procedure TForm1.DropFiles(var msg: TMessage);
var
  i, count  : integer;
  dropFileName : array [0..511] of Char;
  MAXFILENAME: integer;
begin
  MAXFILENAME := 511;
  count := DragQueryFile(msg.WParam, $FFFFFFFF, dropFileName, MAXFILENAME);
  for i := 0 to count - 1 do
  begin
    DragQueryFile(msg.WParam, i, dropFileName, MAXFILENAME);
    Memo1.Lines.Add(dropFileName);
  end;
  DragFinish(msg.WParam);
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
DragAcceptFiles(ListView1.Handle, True);
end;

[Кольша]

не работает я же писал "тут добавляю но нечего не происходит как быть?"