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

[Matze]

Hi!

Wie kann ich per Drag&Drop Dateien in eine ListBox ziehen, sodass der Pfad mit Dateinamen in der ListBox steht?

Ich habe das hier, am Beispiel Panel, gefunden, allerdings weiß ich nicht, was ich in die Lücke schreiben muss.

Delphi-Quellcode:

procedure TMainWindow.panelDragDrop(Sender, Source: TObject; X, 
  Y: Integer); 
begin 
  if (Source is TShellListView) then 
  begin 
    //Daten auslesen und darstellen 
  end; 
end; 

procedure TMainWindow.panelDragOver(Sender, Source: TObject; X, 
  Y: Integer; State: TDragState; var Accept: Boolean); 
begin 
  Accept := (Source is TShellListView); 
end;