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

Code:

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