Нашел этот пример в Visual Basic for MS Office 2000:
Sub ShowDriveList
Dim fs, d, dc, s, n
Set fs = CreateObject("Scripting.FileSystemObject")
Set dc = fs.Drives
For Each d in dc
s = s & d.DriveLetter & " - "
If d.DriveType = 3 Then
n = d.ShareName
Else
n = d.VolumeName
End If
s = s & n & vbCrLf
Next
MsgBox s
End Sub

Так вот, не могу перенести в Delphi цикл For Each ... :

procedure TForm1.Button1Click(Sender: TObject);
var
fs, d, dc: Variant;
s, n: String;
i: Integer;
begin
fs:=CreateOleObject('Scripting.FileSystemObject');
dc:=fs.Drives;
s:='';
for i:=0 to dc.Count-1 do
begin
d:=dc.Item ; ОШИБКА --- СМ. НИЖЕ
s:=s+d.DriveLetter+' - ';
if d.DriveType=3 then
n:=d.ShareName
else
n:=d.VolumeName;
s:=s+n+chr(13);
end;
ShowMessage(s);
fs:=Unassigned;
dc:=Unassigned;
d:=Unassigned;
end;

ОШИБКА: "Project Project1.exe raised exception class EOleException with message 'Параметр задан неверно'."

Нет!!!!!!!!!! Это опечатка в моем сообщении, а в программе у меня так и есть Я цикл начинал: и с нуля, и с единицы; и тип переменной i брал другой!!!

И, ВООБЩЕ, ПРЕЖДЕ ЧЕМ ПУБЛИКОВАТЬ ОТВЕТ - ЖЕЛАТЕЛЬНО ЕГО ПРОВЕРИТЬ САМОМУ!!!!!!!!!!!!!!!!!!!!!!!!!!!!! По-крайней мере Я - поступаю ТАК!!!