Problém s procházením kolekce v DELPHI 7 (for each ve VB) - např. FileSystemObject – Delphi – Fórum – Programujte.com

Ahojky, patrně mám dotaz ze skupiny "hloupých", ale bohužel se mi doposud nepodařilo nalézt odpovědi.
Problém spočívá v tom, že nevím, jak projít kolekci dat způsobem, který je ve Visual Basicu vyřešen pomocí příkazu - For Each XX in YY.
Konkrétně se jedná o to, že jsem použil (deklaroval) proměnnou
FSO := CreateOleObject('Scripting.FileSystemObject');
, kde se potřebuji dostat k seznamu (výpisu informací) o jednotkéch (HDD, CD/DVD ROM, apod.), které jsou instalované.
Ta deklarovaná proměnná je v tomto případě pouze jako příklad.
Dotaz tedy spočívá v tom, jak projít kolekci (array) dat, aniž bych musel použít něco jako:
...FSO.Drives.Item[1].VolumeName...
Přes Watch tam položky Item jsou, ale nijak se k nim bohužel nedostanu :(

Předem děkuji za informace
MilanXL

To MilanXL :

for i:=0 to lenght(FSO.Drives)-1 do

....	

To MiMi :

Funguje :) - já jsem napsal
For f:= 1 to FSO.Drives.Count do
....

Bohužel se už ale nedostanu k položce Item, která obsahuje ony data (typ, velikost, volných, atd. včetně všech podadresářů).