拖放问题

Question

左边是一个ListView，右边是一个TreeView，要从ListView拖一个东西到Treeview上，可是TreeIVew的DragDrop事件好象不起作用。请各为帮我看看程序有什么问题。程序如下：
procedure TsbglForm.infoListViewMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Button=mbLeft then
begin
  if (Sender As TListView).GetItemAt(X,Y)=nil then exit;
  (Sender As TListView).DragMode:=dmManual;
  (Sender As TListView).BeginDrag(False,-1);
end;
end;procedure TsbglForm.JgTreeViewDragDrop(Sender, Source: TObject; X,
  Y: Integer);
var
  node:TTreeNode;
begin
  ShowMessage('qqq');
  if (Sender As TTreeView).Selected=nil then exit;
  node:=(Sender As TTreeView).GetNodeAt(X,Y);
  memo1.Lines.Add(node.Text);end;

Answer 1

procedure TForm1.lst1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  accept := true;
end;要在dragover将accept设为true

Answer 2

未完成通过，类型转换错，唔得闲试啊，帮到这里。
good luck