Schließt meine Exceldateien ohne zu speichern !!

[Vader]

hallo,

warum schließt mir dieser code alle geöffneten exceldateien und was das schlimme
darin ist, daß er die geöffneten exceldateien gar nicht um das speichert fragt !!!!

Delphi-Quellcode:

function TForm1.OpenExcel : Boolean;   
begin
  Result:=True;
  Try
    ExcelApplication1.Connect;
    ExcelApplication1.Visible[FLCID] := False;
    ExcelApplication1.UserControl := False;
    ExcelApplication1.DisplayAlerts[FLCID]:=False;
    {Excel-Arbeitsblätter können Verknüpfungen zu anderen Dateien haben.
     Hier wird der Verknüpfungen-Aktualisieren Dialog unterdrückt}
    ExcelApplication1.AskToUpdateLinks[FLCID]:=False;
  Except
    Result:=False;
    end;
end;

procedure TForm1.CloseExcel;   
begin
  ExcelWorksheet1.Disconnect;
  ExcelWorkbook1.Disconnect;
  ExcelApplication1.AskToUpdateLinks[FLCID]:=True;
  ExcelApplication1.Quit;
  ExcelApplication1.Disconnect;
end;

mfg vader