ShellBrowser.Folder := 'C:WindowsSystem';
ShellBrowser.SelectParent;

After this ShellBrowser.Folder would have the value 'C:Windows' and ShellBrowser.ObjectName would have the value 'System'. To get the icon number of the virtual folder 'My Computer', you could do the following:

ShellBrowser.Folder := '';
ShellBrowser.SelectParent;
inr := ShellBrowser.IconNumber

After this ShellBrowser.ObjectName is empty, because 'My Computer' does not have a file system path. ShellBrowser.GetShellObjectName would return 'My Computer' (language dependent). ShellBrowser.IconNumber returns the correct icon number for 'My Computer'.