Здравствуйте, lka_76, Вы писали:

извиняюсь вопрос снят...
называется не верь примерам .... хотя там и красиво написано
как оказалось нужно писать

_>      wbemCimtypeString:
_>      if VarIsArray(SProp.Get_Value) then
_>        begin
_>          if VarArrayHighBound(SProp.Get_Value, 1) <> 0 then
_>            for Count := 1 to VarArrayHighBound(SProp.Get_Value, 1) do 
_>              StrValue := StrValue + ' ' + SProp.Get_Value[Count];
_>        end

            for Count := VarArrayLowBound(SProp.Get_Value, 1) to VarArrayHighBound(SProp.Get_Value, 1) do
              StrValue := StrValue + ' ' + SProp.Get_Value[Count];