GLibWMI_2.1b and USB

[YosvanyRL]

Escribi este codigo exactamente como esta arriba y me salio un error que dice:

Indice fuera de limites (Crear tipo especifico)

Que hago con ese error ahora?

Código Delphi [-]
procedure TMainForm.FormCreate(Sender: TObject); var   I: Integer; begin   // Activamos el componente   USBControllerInfo.Active := True;    // Recorremos los objetos obtenidos   for I := 1 to USBControllerInfo.ObjectsCount do   begin     // Iremos seleccionando uno de los objetos     USBControllerInfo.ObjectIndex := I;      // Una vez seleccionado, podemos acceder a sus propiedades     USBListBox.Items.Add(USBControllerInfo.USBControllerProperties.Caption);   end;

end;