🚀 go-pugleaf

How can I retrieve "CudeDef" object from "CubeDefs" collection?

I Delphi it is possible in the following way:

var
  Catalog1: ICatalog;
  CudeDef1: CubeDef;
  I: Integer;

Catalog1 := CoCatalog.Create;
Catalog1._Set_ActiveConnection(OleVariant(DataSource)); // DataSource -
connection string
for I:= 0 to Catalog1.CubeDefs.Count- 1 do
begin
  CudeDef1= Catalog1.CubeDefs[I] as CubeDef;

  // here we use the CubeDef object;
  TreeView1.Items.AddChild(RootNode, CubeDef1.Name);
end;

But when in C++ Builder I wrote:

  WideString DataSource= "Provider=MSOLAP.2;
                                             Integrated Security=SSPI;
                                             Persist Security Info=False;
                                             Data Source=ARISXXXXX;
                                             Initial Catalog=FoodMart 2000;
                                             Client Cache Size=25";
  Catalog1->set_ActiveConnection(DataSource);
  TCOMCubeDefs CubeDefs1= Catalog1->CubeDefs;
  TCOMCubeDef25 CubeDef1;
  //CubeDefs *CubeDefs1= Catalog1->CubeDefs;
  //CubeDef *CubeDef1;
  for(I= 0; I < CubeDefs1->Count; I++)
  {
    CubeDef1= Catalog1->CubeDefs->get_Item(I);  // here will be error!
    // CubeDef1= Catalog1->CubeDefs[I];
    TreeView1->Items->AddChild(RootNode, CubeDef1->Name);
  }

I get error: access violation :((((((((((((((((((!!!

 Please explain my where is my error!