//ドラッグ処理
//ListView1からItemをTreeView1にドラッグしている最中の処理
procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  if Sender is TListView then
  begin
    Accept := True;
  end;
end;