用delphi组件操作sql的dts问题

[tomp]

大家都知道在delphi可以用下面办法来操作dts
iPkg:=CreateOLEObject('DTS.Package');
iPkg.LoadFromSQLServer('servername','user','pwd',0,'','','','dtsname');
iPkg.Execute;
iPkg.Uninitialize;
iPkg:=Null;

我在“import type library”安装了dtspackage object library。从生成的组件来看，组件package的实例就对应上面的iPkg。但是执行过程中却出现错误，错误就在execute这句话上。程序很简单，大家可以试试。

有谁能给出解释吗。