Excel richtig beenden aus Delphianwendung

[okoeller]

Hallo,

 xxx := unassigned; brachte leider keinen Erfolg.

Für den KillTask fehlen wohl einige Eintragungen in den uses, z.Bsp. kann ich nichts mit " TProcessEntry32 " anfangen.
"Refactoring/Unit suchen" hat nichts gefunden.

Vielleicht hilft es ja wenn ich mal die Öffnen Prozedur poste.

Delphi-Quellcode:

 
FExcel: Variant;

Delphi-Quellcode:

procedure TExcelImport.OeffneDatei(Dateiname: string);
begin
  try
    FExcel:= CreateOleObject('Excel.Application');
    FExcel.Visible := false;
    FExcel.WorkBooks.Open(Dateiname);
    FSheet := FExcel.Workbooks[1].WorkSheets[1];

  except
    on E:EOleException do
    begin
      FExcel.Quit;
      raise EFileAccessException.Erzeugen('Die Datei konnte nicht geöffnet werden: ' + E.ClassName);
    end;
  end;
end;

Oliver