int DiskNumarasi;
  double DiskBoyutu;
  AnsiString ozcan;
  ozcan=UpperCase(DriveComboBox1->Text);
  DiskNumarasi=ozcan[1]-64;//Sürücü HArfinden Numarayı Bul
  DiskBoyutu=DiskSize(DiskNumarasi)/1024.0/1024.0;
  Edit1->Text=FloatToStr(DiskBoyutu)+"MB";
//forma Drive Combo box ALın ve çift tıklayın içine yukarıdaki kodu yazın