DragDrop mit ShellDropper

[Rolf Rostig]

Hallo,

in eine Listbox kann ich per Drag & Drop den Dateinamen plus Pfad vom Explorer oder Desktop ziehen.

Delphi-Quellcode:

procedure TForm1.ShellDropper1Drop(Sender: TObject; const DropRec: TDropRec);
var i: integer;
begin
  for i := 0 to DropRec.Files.Count - 1 do
  begin
    ListBox1.Items.Add(DropRec.Files.Strings[i]);
  end;
end;

ich möchte aber nur den Dateinamen in der Listbox stehen haben und auch per Drag & Drop den Namen wieder entfernen oder in eine andere Listbox ziehen.
Wie kann das gehen?