Хочу получить метаданные из MS AS, пишу приерно следующее:

var
CubesCounter : integer;
ActiveConnection : ADODB.TADOConnection;
dbCatalog : ADOMD_TLB.Catalog;
Cube : ADOMD_TLB.CubeDef;
begin
ActiveConnection := ADODB.TADOConnection.Create(self)
ActiveConnection.ConnectionString := 'Datasource=LocalHost; Provider=msolap; Initial Catalog=FoodMart 2000;';
ActiveConnection.Open();
dbCatalog := ADOMD_TLB.CoCatalog.Create();
dbCatalog.Set_ActiveConnection(ActiveConnection.ConnectionString);

for cubesCounter := 0 to dbCatalog.CubeDefs.Count - 1 do
begin
ShowMessage(dbCatalog.CubeDefs[cubesCounter].Name);
end;
end;

dbCatalog.CubeDefs.Count - возвращает кол-во кубов, но при попытке достать
cubedef - вылетает напрочь (Access violation...)

Видел топик с подобной проблемой, но решения там нет :(
Подскажите пожалуйста, как это можно вылечить.

Спасибо за отклик, однако такой опции не нашел.
Помогло следующее:
в файле ADOMD_TLB.pas удалил из интерфейсов CubeDefs и CubeDefsDisp методы типа GhostMethod*, удалил интерфейсы CubeDef и CubeDefDisp,
и переименовал CubeDef25 и CubeDef25Disp в соответственно CubeDef и CubeDefDisp. И о чудо - заработало!
Вобщем методом проб и ошибок :)