Drag&Drop: ShellListView ==> ListBox od. ListView - ListView

[Matze]

Geht bei mir ja überhaupt nicht

Ich hab mir gedacht, in nehm ein eifaches Beispiel, das die markierten Einträge von ListView1 nach ListView2 gibt.
Net mal das kann ich

Delphi-Quellcode:

procedure TForm1.ListView2DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  if Sender = ListView1 then Accept := true
    else Accept := false; 
end;

procedure TForm1.ListView2DragDrop(Sender, Source: TObject; X, Y: Integer);
var i: integer;
    Item: TListItem;
begin
  if Source is TListView then
    for i := 0 to ListView1.SelCount do
      if ListView1.Items[i].Selected then
      begin
        Item := ListView2.Items.Add;
        Item.Caption := ListView1.Items[i].Caption;
      end;
end;

Wenn ich nun von ListView2 in diese selber ziehe, dann wir eine neue Spalte mit dem Titel, der gezogen wird, angelegt. Das ist natürlich auch Müll.

Und ich will ja keine Spalten, sondern zeilen.

Kann mir da vielleicht jemand helfen?