¿Qué te parece algo así?
Código:
procedure TForm1.Button1Click(Sender: TObject);
begin
if (ShellListView1.SelectedFolder <> nil) and
(not ShellListView1.SelectedFolder.IsFolder) Then
begin
Memo1.Lines.LoadFromFile(ShellListView1.SelectedFolder.PathName);
end;
end;
Saludos!