Какой компонент использовать для вывода дисков

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
#define DRIVE_UNKNOWN     0   // Неправильное имя
#define DRIVE_NO_ROOT_DIR 1   // Неправильное имя: отсутствует диск
#define DRIVE_REMOVABLE   2   // Съёмное устройство (магнито-оптика, zip)
#define DRIVE_FIXED       3   // жёсткий диск (обычный винчестер)
#define DRIVE_REMOTE      4   // сетевой диск
#define DRIVE_CDROM       5   // CD-ROM
#define DRIVE_RAMDISK     6   // RAM диск
 
struct {
   UINT type;        // возвращаемый код из GetDriveType
   LPCSTR name;      // ascii имя
} DriveTypeFlags [] = {
   { DRIVE_UNKNOWN,     "Unknown" },
   { DRIVE_NO_ROOT_DIR, "Invalid path" },
   { DRIVE_REMOVABLE,   "Removable" },
   { DRIVE_FIXED,       "Fixed" },
   { DRIVE_REMOTE,      "Network drive" },
   { DRIVE_CDROM,       "CD-ROM" },
   { DRIVE_RAMDISK,     "RAM disk" },
   { 0, NULL},
};
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   TTreeNode * pMainNode = tvMain->Items->Add(0,"Компьютер");
 
   char buf[100];
   DWORD len = GetLogicalDriveStrings(sizeof(buf)/sizeof(char),buf);
   AnsiString asMsg;
   for (char* s=buf; *s; s+=strlen(s)+1) {
      LPCTSTR sDrivePath = s;
      asMsg = sDrivePath;
      asMsg += " ";
 
      // GetDriveType получает одно из перечисленных значений
      // DRIVE_UNKNOWN, и т.д.
      //
      UINT uDriveType = GetDriveType(sDrivePath);
 
      // Находим тип диска в таблице.
      for (int i=0; DriveTypeFlags[i].name; i++) {
         if (uDriveType == DriveTypeFlags[i].type) {
            asMsg += DriveTypeFlags[i].name;
            break;
         }
      }
      tvMain->Items->AddChild(pMainNode,asMsg);
   }
 
 
}
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
   : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TTreeNode * pMainNode = derevo->Items->Add(0,"ПК");
  char DiskLabel[MAX_PATH];
  WORD OldErrorMode;
  AnsiString disk;
  DWORD dr = GetLogicalDrives( );
  for ( int x = 1; x < 26; x++ ) {
    if ( ( dr >> x ) & 1 ) {
      disk = AnsiString( ( char )( 65 + x ) ) + "://";
      OldErrorMode = SetErrorMode( SEM_FAILCRITICALERRORS );
      bool ready = DirectoryExists(disk);
      if (ready) {
        UINT DriveType = GetDriveType( disk.c_str( ) ); // ???????? ??? ?????
        if ( DriveType != DRIVE_CDROM && // ????????? CDROM?
             DriveType != DRIVE_FIXED && // ?????????  HDD
             DriveType != DRIVE_RAMDISK &&  // ?????????  Ram disk
             DriveType != DRIVE_REMOTE &&     //????????? FDD
             DriveType != DRIVE_NO_ROOT_DIR &&    //????????? ???????????? ?????
             DriveType != DRIVE_UNKNOWN)       //????????? ??????????? ?????
        {
          derevo->Items->AddChild(pMainNode,disk);
        }
      }
    }
  }
}
void __fastcall TForm1::derevoChange(TObject *Sender, TTreeNode *Node)
{
 
 Edit1->Text = derevo->Selected->Text.SubString( 1, 4 );
}

  derevo->FullExpand();

TreeView1->Items->Clear();