While ShellBrowser.Next do begin
  Item := ListView.Items.Add;
  Item.Caption    := ShellBrowser.GetShellObjectName;
  Item.ImageIndex := ShellBrowser.IconNumber;
end;