Como puedo cargar un SQL DTS desde Delphi?

[humexico.org]

Me llamó la atención tu pregunta y le dí un googlaso:
**************************************************
var
TheDTS,objConnect: Variant;
i:integer;
Begin
TheDTS:= CreateOleObject('DTS.Package');

try
TheDTS.LoadFromStorageFile(ExtractFilePath(ParamStr(0)) +
'\UpdateAM5.dts','');

//TheDTS.GlobalVariables.Item('TheMDB').value:='C:\Program Files\Agency
Manager\Data\amdata.mdb';


for i := 1 to TheDTS.Steps.count do
TheDTS.Steps.Item(i).ExecuteinMainThread := True;

TheDTS.FailOnError := true;

TheDTS.Execute;
except
on E: Exception do
begin
//Display the error message.//
ShowMessage('Bugger something went wrong = ' + E.Message);
end;

end;
TheDTS.UnInitialize;
TheDTS:= Unassigned;
ShowMessage('Done');

*************************************************

Comentanos si jala.

SAludos