Runtime Error

[day]

Hallo

Ich habe folgendes Problem. Seit ich diesen Code abschnitt in meiner Applikation habe bekomme ich immer eine "Runtime error 216 at 00018008" wenn ich das programm beende.
Könnte es sein das da irgend ein speicherbereich nicht freigegeben wird????

Code:

              //Aktive Word Instanz holen
              GetActiveOleObject('Word.Application').QueryInterface(_Application,WordApp);

              //Bookmark durch Betrag ersetz
              EmptyParam := WordApp.Selection.Range;


              if (WordApp.ActiveDocument.Bookmarks.Exists(bookMark)) Then
              begin

                if(DM.OfferDetailView.FieldValues[TEXTMODULEPRICE_PRICE_FIELD] <> Null) Then
                  lPrice := DM.OfferDetailView.FieldValues[TEXTMODULEPRICE_PRICE_FIELD]
                else
                  lPrice := '0';
                Nme := bookMark;
                WordApp.ActiveDocument.Bookmarks.Item(Nme).Select;
                WordApp.Selection.TypeText(lPrice);
                WordApp.ActiveDocument.Bookmarks.Item(Nme).delete;
              end;

WordApp ist vom Type _Application. Komischerweise besitzt dieser Type kein Free.
jemand eine Ahnung woran es liegen könnte???

[Mario]

Interfaces werden automatisch freigegeben. Das ist vielleicht erst mal wichtig zu wissen.

  EmptyParam := WordApp.Selection.Range; Die Zeile ist eigentlich Quatsch. EmptyParam ist eine Variable, welche Delphi bereitstellt, damit nicht alle OLEVariant-Parameter übergeben werden müssen. Die Manipulation dieser Variable solltest Du tunlichst unterlassen und dann noch mal testen.

[Ultimator]

Wenn du dein Programm aus der IDE heraus startest, kannst du im Menü "Suchen" den selbsterklärenden Menüpunkt "Laufzeitfehler" benutzen