DTS Desde Delphi

[gdlrinfo]

Hola amigos tengo una duda se puede ejecutar un dts desde Delphi sin usar el DTSRUN de MS-DOS encontré un ejemplo pero la verdad no anda me da un error en el Delphi xe6 lo pongo si quieren por ahí saben de que se trata:

Código Delphi [-]
  var
     oPackage:TPackage;
     vHost: OleVariant;
   begin
     try
       // inicializar
       CoInitialize(nil);
       //Crear el objeto
       oPackage:=TPackage.Create(nil);
       // Cagarlo
       oPackage.LoadFromSQLServer(
         'xxxx',     // Servidor
         'xxxx',     // Usuario
         'xxxx',     // Contraseña
         256,'', '', '',
         'xxxxx.dts',     // Nombre del DTS
         vHost);
       // ejecutar
       oPackage.UnInitialize;
       oPackage.Execute;
       MessageDlg('Ejecución correcta.', mtInformation, [mbOK], 0);
     except
       raise;
     end;

end;

Este ejemplo me tira un error "ole error 80040E4D"

Gracias como siempre saludos !!!!