procedure TForm1.Button1Click(Sender: TObject);
const
  DataSource = 'Provider=MSOLAP.2;Initial Catalog=DB_NAME;Data Source=SRV_NAME;';
var
  Catalog1: Catalog;
  CubeDefs1: CubeDefs;
  CubeDef1: CubeDef;
  RootNode, CubeNode, CubeDefNode: TTreeNode;
  i: integer;
begin
  Catalog1:=CoCatalog.Create;
  TreeView1.Items.Clear;
  RootNode := TreeView1.Items.Add(nil, 'Catalog');
  CubeNode := TreeView1.Items.AddChild(RootNode, 'Cubes');
  Catalog1.Set_ActiveConnection(DataSource);
  CubeDefs1 := Catalog1.CubeDefs;
  if CubeDefs1.Count >  0  then begin
    for i :=  0  to CubeDefs1.Count- 1  do begin
      CubeDef1 := CubeDefs1[i];
      CubeDefNode :=TreeView1.Items.AddChild(CubeNode, CubeDef1.Name);
    end;
  end;
end;