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???