Ejecutar DTS desde delphi 7.0

[janexa]

tengo este codigo:

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
var
  oPackage:TPackage;
  vHost: OleVariant;
begin
  try
    // inicializar
    CoInitialize(nil);
    //Crear el objeto
    oPackage:=TPackage.Create(nil);
    // Cagarlo
    oPackage.LoadFromSQLServer(
      Edit1.Text,     // Servidor
      Edit2.Text,     // Usuario
      Edit3.Text,     // Contraseña
      256,'', '', '',
      Edit4.Text,     // Nombre del DTS
      vHost);
    // ejecutar
    oPackage.UnInitialize;
    oPackage.Execute;
    winexec(PChar('dtsrun /S '+Edit1.Text+' /U '+Edit2.Text+' /P '+Edit3.Text+' /N '+Edit4.Text),SW_HIDE);
    MessageDlg('Ejecución correcta.', mtInformation, [mbOK], 0);
  except
    raise;
  end;
end;

pero al ejecutarlo me marca error de inicio de sesion del usuario '(null)' Motivo No esta asociado a una conexion de SQL server de confianza