안녕하세요.
저도 살짝해본적은 있는데,
트리뷰를 보시면은 / root가 있고, 그 아래 서브트리구조가 생성이 될 것입니다.
님이 원하는 구조를 먼저 생성을 하신다음에
그에 알맞는 아이콘을 연결해주면은 윈도우탐색기의 트리뷰처럼 됩니다.
일단 모양은 그렇게 되겠구요.
그 후에 선택을 했을때에 파일 목록이 나오게 하고 싶으시면은
onchange 속성에 이벤트처리를 해주시면 됩니다.
트리뷰가 윈도우 탐색기 처럼 보이게 한다는 말자체가 좀 모호해서 여기까지 밖에 답변을 못드리겠네요.

아래는 쉘아이콘 연결하는 소스구요.

var
SHInfo: TSHFileInfo;
LItemIDList: PItemIDList;
begin
{...}
// Folder & OpenFolder and Folder TypeName
if SUCCEEDED(SHGetSpecialFolderLocation(0, CSIDL_DESKTOPDIRECTORY, LItemIDList)) then
begin
   SHGetFileInfo(PChar(LItemIDList), 0, SHInfo,
     SizeOf(TSHFileInfo), SHGFI_PIDL or SHGFI_SYSICONINDEX or SHGFI_ICON or SHGFI_LARGEICON);
   GShell_FolderIcon := SHInfo.iIcon;
   GShell_FolderIconHandle := SHInfo.hIcon;

   // Open Folder
   SHGetFileInfo(PChar(LItemIDList), 0, SHInfo,
     SizeOf(TSHFileInfo), SHGFI_PIDL or SHGFI_SYSICONINDEX or SHGFI_OPENICON or SHGFI_TYPENAME or SHGFI_ICON or SHGFI_LARGEICON);
   GShell_OpenFolderIcon := SHInfo.iIcon;
   GShell_FolderType := SHInfo.szTypeName;
   GShell_OpenFolderIconHandle := SHInfo.hIcon;
end;
{...}