Anwendung reagiert während ausführen von SSIS Paket nicht

[Boppe]

Hallo Zusammen!
Ich erstelle im Moment eine Anwendung die verschiedene Datenaufbereitungsjobs erledigt und anschließend die erstellten Daten per DTS auf einen anderen MSSQL Server überträgt. Soweit so gut!

Um die einzelnen Schritte für den Nutzer zu veranschaulichen werden aktueller Status und Ergebnisse in einem Grid ausgegeben. Leider reagiert während der Übertragung meine Hauptanwendung gar nicht mehr.

Hab mir überlegt das ganze mit Threads zu realiseren allerdings steh ich im Moment irgendwie im Wald und hab keine Ahnung wie ich anfangen soll.

Hat jemand ne Idee oder nen Ansatz?

Code:

uses DTSLib_TLB;
.
.
function DoSSISPackage(DTSXFile: string):DTSExecResult;
var
  pkg         : IDTSPackage90;
  app         : TApplication;
  pkg_result  : DTSExecResult;
begin
  app := TApplication.Create(nil);
  pkg := app.LoadPackage(DTSXFile, True, nil);
  pkg_result := pkg.Execute_;
  app.Free;
  result := pkg_result;
end;