Word-OleObject korrekt schliessen?

[raiguen]

Moin
Probier das mal so:

Delphi-Quellcode:

...
//--Dokument in OleContainer laden
      if (OleContainer1.State = osEmpty) then
        begin
          OleContainer1.CreateObjectFromFile(cDokument, False);
          OleContainer1.Run;
          OleContainer1.Align := alClient;
          OleContainer1.SizeMode:= smScale;
          OleContainer1.Visible := True; //--falls noch nicht sichtbar
        end
      else
        OLEContainer1.doVerb(1);
...
//--Dokument schließen(speichern) und OLEContainer freigeben (vorzugsweise im FormClose):
...
  if OleContainer1.State<>osEmpty then
    begin
      //änderungen im Formular speichern
      OleContainer1.SaveAsDocument(cDokument);
      Visible := False;
      OleContainer1.Close;
      OleContainer1.DestroyObject;
  end;