[roman]

Si por direccion del archivo te refieres a la ruta del archivo entonces puedes usar

ShellListView1.SelectedFolder.PathName

En caso de que tengas múltiples archivo seleccionados puedes acceder a todos ellos con un ciclo:

Código Delphi [-]
for I := ShellListView1.Selected.Index to ShellListView1.Items.Count - 1 do
  if ShellListView1.Items[i].Selected then
  begin
    {
       ShellListView1.Folders[i].PathName
       es la ruta del folder en turno
    }
  end;

// Saludos