Как в Delphi обнаружить подключенные съемные носители?

uses
  Winapi.Windows;

procedure GetDriveList(AComboBox: TComboBox);
var
  i: integer;
  varRoot: WideString;
  varDrivers: DWORD;
  varVolumeName, varFileSystemName: array [0..MAX_PATH-1] of Char;
  varVolumeSerialNo, varMaxLength, varFileSystemFlags: LongWord;
  varStr: WideString;
begin
  varRoot := '#:\';
  varDrivers := GetLogicalDrives;
  for i := 0 to 25 do
  begin
    varRoot[1] := Char(Ord('A')+i);
    if (varDrivers and (1 shl i)) > 0 then
    begin
        if GetVolumeInformation(PChar(varRoot), varVolumeName, MAX_PATH, @varVolumeSerialNo,
                                varMaxLength, varFileSystemFlags, varFileSystemName, MAX_PATH) then
        begin
          varStr := varRoot+' | '+varVolumeName+' ['+varFileSystemName+']';
          AComboBox.AddItem(varStr, nil);
        end;
    end;
  end;
end;

var s,e:ansiString;i:integer;DriversList:TStringList;
...
begin
  DriversList:=TStringList.Create;
  SetLength(s,100);
  GetLogicalDriveStringsA(Length(s),@s[1]);
  i:=0;      e:='';
  while (i<100)and(copy(s,i,2)<>#0#0) do begin
    if s=#0 then begin inc(i); e:=e+#13#10;end;
    if s<>'\' then    e:=e+s;
    inc(i);
  end;
  DriversList.Text:=e;
  SetLength(s,0);
end;