use ComObj;
var
  cat:olevariant;
begin
  cat:=createoleobject('adox.catlog');
  //cat:=createoleobject('adox.catlog.25'); ado2.5
  //cat:=createoleobject('adox.catlog.26');  ado2.6 //cat.  就可以调用所有的catlog 对象end;
end;