OLAP CUBE的问题,百思不解,请高手相助!在线等待!

Question

procedure TForm1.GetOlapCubes(dataSource: widestring);
var      I : Integer;
      Catalog1 :ICatalog;
      RootNode :TTreeNode;
      CubeDef1 :CubeDef25;
      CubeDefNode :TTreeNode;
    begin      //创建新的Catalog对象      Catalog1 := CoCatalog.Create;      TreeView1.Items.Clear;      RootNode := TreeView1.Items.Add(nil, 'Catalog');      //连接多维数据库
      Catalog1.Set_ActiveConnection('Provider=MSOLAP.2;Password=taadmin;Persist Security Info=True;User ID=taadmin;Data Source=SKT057;Initial Catalog=FoodMart 2000;Client Cache Size=25;Auto Synch Period=10000');      //遍历立方并获得对应的名字
    
      for I := 0 to Catalog1.CubeDefs.Count-1 do
      begin
        CubeDef1 := Catalog1.CubeDefs(i) as CubeDef;
        CubeDefNode := TreeView1.Items.AddChild(RootNode, CubeDef1.Name);
      end;            end;
上面代码是取得OLAP的CUBE,import adomd_tlb后是在DELPHI 6中编译出现
[error]:class does have not deflaut property
百思不解,请高手相助!