Получить путь к выделенному файлу в TShellListView

Label1.Caption := ShellListView1.Folders[ShellListView1.ItemIndex].PathName
 
 {**************************************************************}
 
 { 
  To retrieve full paths to each file selected files: 
}
 
 var
   path: string;
 begin
   for i:=0 to ShellListView1.SelCount-1 do
   begin
     path := ShellListView1.Folders[ShellListView1.GetNextItem(ShellListView1.Selected,
               sdAll,[isSelected]).Index+i-1].PathName;
     // ... 
  end;
 end

Взято с сайта: https://www.swissdelphicenter.ch