procedure TForm1.Button1Click(Sender: TObject);
var
D:dword;
i,n:integer;

begin
D:=GetLogicalDrives;
i:= 1; n:= Ord('A');
while i > 0 do begin
 if (D and i) <> 0 then
 ListBox1.Items.Add(Chr(n));
 Inc(n);
 i:= i SHL 1;
 End;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i:integer;
Disk: PAnsiChar;
SerialNum: dword;
VName, FSName: array [0..255] of char;
MaxNameL,FSFlags:dword;

begin
 for i:=1 to listbox1.Items.Count-1 do begin
Disk:=PChar(listbox1.Items[i]);
if GetVolumeInformation(PChar(Disk + ':\'),
VName, SizeOf(VName),
@SerialNum, MaxNameL, FSFlags, FSName, SizeOf(FSName)) then
Showmessage('Диск:'+Disk+#13+'Файловая система: '+FSName +#13+ 'Имя тома: ' + VName + #13+ 'Максимальная длина имени файла: '+IntToStr(MaxNameL)+#13+ 'Флаги фс: '+IntToStr(FSFlags));
end;
end;

{функция определения типа устройства}
function GetD(Drive: String): String;
var
DType : uInt;
begin
  DType := GetDriveType(PChar(Drive));
  case DType of
    0: Result := Неизвестный';
    1: Result := 'Неверный корневой путь';
      Drive_Removable: Result := 'Съемный';
      Drive_Fixed: Result := 'Постоянный';
      Drive_Remote: Result := 'Внешний';
      Drive_CDROM: Result := 'Привод CD';
      Drive_RamDisk: Result := 'Диск RAM'
    else Result := 'хз :)';
  end;
end;

{использование функции}
...
Showmessage(GetD('A:\'));
...